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The following products 
ore available on order from 
us. 

To order, contact us fcy 
phone, Viatel or letter, 
giving us your naiw, 

address, phone number and 
credit card Dunbar, a? well 
as the Item shown beside 
the product as listed below. 

All Items Include poet 
and packing;. 



^the 

UOLDSOFT 
WlSHBOOK 



Item # 
D 001 

B D02 

B 003 

C OOl 

G 002 
G 003 
G 004 

B 1001 

B 1002 

1001 



G 1002 

o ;oo3 

G 1004 

G 1005 
C 1006 
G 1007 
G 1008 
G 1009 
G 1010 
G 1011 
G 1012 
G -.013 
G 1014 
G 1015 
G '016 



CoCo Hardware 
Description 
512K upgrade kit for 
CoCo 3 owners 
10 Mb Hard drive lnc 
software 
Coning! CoCoRet! 
He t working exlrodln- 
aire! 

The CoCaConnect ion - 
Use your CoCo to 
control mode Is, a la nas 
- anything electrical 
Video Anpilfler with 
sound - attach your 
CoCo I or 2 to a 
Video monitor 
The Probe - A temper- 
ature sensing unit 
you pLugln to the Joy 
stick port. 
64K Upgrade Kit - up- 
grade your CoCo2's 
memory to 64K! 

CoCo Software 
The Viz! The ulUimte 
OS-9 L2 Cons package! 
Multl Windowing, VT52 
Emulator , 300-19200 
baud. RS 232 protocol 
IMS - Relational Data 
Base written In 4GL & 
VERY fast! OS- 9 L2 
Say the Vordz - two 
Curriculum based 

speller prograns for 
your Tandy Speech / 
Sound Fack (32K ECB> 
The CoCo 3 Tope/Disk 

* 1 

# 2 
1 3 

The Best of CoCoOz 

It 1 Education 

* 2 Part 1 16X Games 

* 2 Fort 2 32S Gaines 

* 3 Utilitloc 

* 4 Business 

* 5 Adventure Gooes 

* 6 Preschool Edn 

* 7 Ciophlcs 

* 1GR Genes 

* 9 32K Gooes 
'10 Education 
*11 Education 

<Hlsk only) 
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Cost 

199.00 

299. 00 

TBA 
$206.00 
$35.00 

$49.95 

$55.00 



$159. 00 



1299, 00 



$29 . 95 

$16.00 
416.00 
$16.00 

$16. 00 
$16.00 
$16. 00 
$16. 00 
$16.00 
$16. 00 
$16,00 
$16. 00 
$16.00 
$16. 00 
$16.00 

$16.00 



Item # 
001 

Q 002 

Q 003 

q 004 



Tandy and I OH PC Hardware 

Description Cost 
Colour Monitor 

<DTX 2001) $680. 00 

Mono Monitor $190. 00 

House $go. 00 

80286 Speed Cord $550.00 



Business 
Q 1001 

1002 

1003 

1004 

1005 

1006 

1007 

1000 



Tandy and I BH TC Software 



dBase II 

dBase Ml 

Sldpklck 

Turbo Pascal S087 



$1043.00 

$1470.00 

$215.00 

$261. QQ 



Turbo Pascal BCD & 8087 $244.00 
Crosstalk $306. 00 

Lotus 123 $1054.00 

Vaidetar 2000V $927.00 



Fun 

Q 1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 



1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 



Ancient Art of Vnr 
Frint Shop 
Gato 
Sargon III 

Zork 1 

Zork II 

Zork 111 

Trinity 

Bnl 1 yhoo 

Hitch dicker's Guide 

to the Galaxy 
Crossword Magic 
The American Challenge 
Balance of Power 
Racter 
Jet 

Koonpist 
Shanghai 

Champlonsb |p Golf 
Borrowed T Inn 



$96.00 

5119.00 
$68.00 
$96.00 
$79.00 
$70.00 
$79.00 
$79. 00 
$79.00 



Specials! 

Q 1050 Side Print 



H J see 1 laneous I terns 
Item # Description 
G 2001 Box of 10 DSDD Disks 

10 Boxes plus (per box> 
G 2002 Blank C30 Cassettes 
12 Cassettes 
G 2003 Tape cases, 12 for 
2004 Help - Manual for CoCo 
G 2005 MICo Help - far MC 10 
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WHO IS THIS MAGAZINE FOR? 

This magazine is for compuicr users - 
especially users of Viatel. Tandy Colour 
Compuicr users, Tandy MC-10 
computers, Tandy 1000 and 2000's and 
IBM PC's and compatibles. 

WHO PROVIDES THE 
MATERIAL IN THIS MAGAZINE 

The readers of this magazine supply the 
information you will find here. All of it 
has been volunteered and remains the 
property of the individual authors. 

THE CREW 

Publisher: (Joldsolt 
Magazine Editor: Graham Morphea 
Accounts: Annette Morphea 
Production: Paul Wynne 
Advertising; Graham Morphea 

Sub Editors 

Assembly Language: John Poxon 
MC-10: Jim Rogers 
Sortgold: Barry Cawley 
Forth: John Redmond 
OS-9: Jack Fricker 

Special Thanks to 

Brian Dougan, Paul Humphries, Alex 

Hartmann, Michael Horn, Darcy OToolc, 

Martha Gritwhistle, 

Geoff Fiala, John Redmond, 

Sonya Young and Mike Turk. 

Phone: (075) 51 0577 Voice 
Deadlines: 7th of the preceding month. 
Printed by: Goldsoft 

P.O. Box 1742 
Southport, Qld. 4215 
Registered Publication QBG 4009 
This material is COPYRIGHT. Magazine 
owners may maintain a copy of each 
programme plus two backups, but may 
NOT provide others with copies of this 
magazine in ANY form or media. 
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Welcome Ken! 

Readers will know Ken Allen's 
name as that of the InterTan 
Computer Buyer. 

Veil Ken has left there to 

Join us! 

We're sure Ken's move will 
benefit all Tandy Computer 
owners and we're looking forward 
to his Input In these pages. 



Oonf '87 

Following the announcement of 
dates for Conference this year, 
we've already started to take 
bookings! 

We'll be taking a bus to 
Bundeena from Brisbane via the 
Gold Coast. ]f you would like to 
travel with us, please Indicate 
your needs to us THIS MONTH. Ve 
can pick up on the way as well, 
so this applies to anyone on the 
nor tli coast of HSV too. 

I f we get sufficient 

interest, we'll oiganlse a bus 
from Melbourne as well. 

But we need to know THIS 
MONTH! 



New Lines 

We're expanding some of the 
things we do. 

One of the things we miss In 
the mag, as opposed to previous 
years. Is that catalogue of 
goodies one could sift through! 

So beginning this month, 
we're restarting that system, 
and we expect to be adding all 
sorts of interesting bits and 
pieces to it over the coming 
months. 

If wou need something your 
local btore can't get. call us a 
we'll do our best to get It for 
you, 



The Third CoCo 3 Disk 

Veil. ..disk or tape really! 

These CoCo 3 Disks/Tapes are 
very popular, and understandably 
so, considering the lack of 
software currently available for 
the 3. 

This one has a range of CoCq 
3 programs from both our 
magazines over the last 2 or 3 
months, and at $16.50 is a very 
cheap way to catch up on all 
those programs you may have 
missed! 

User Group News 

As we were unable to cnange 
the information on the Contacts 
List last month, there are 
considerable changes this month. 
Ve have a new contact In 
Bankstown - Pat Dorset. His 
phone number os 02 646 3619. 
Welcome Pat! 

The Cooma telephone exchange 
has just caught up with th* 30th 
century and gone modern, and 
that means that the guys down 
there all have new phone 
numbers. 

Ross Pratt's Is 064 52 3065 
whilst Fred Bisseling's is 0-64 
52 3263. 

Graeme Clarke phoned to say 
that the Dubbo group meets on 
the 2nd Friday of each month. 
Anyone with a Tandy computer In 
the area is very welcome at that 
meeting. 

There is now a contact at 
Smlthtan in Tasmania. His name 
is Harry Chrlsafis and the 
number is 004 35 1839. 

David Horrlck (Dandenong) 
also phoned this month. His 

group sounds very active! 
David's number has changed so if 
you are in the area please note 
the new number - 03 707 5370. 

A number of the Contacts are 
on Viatel fairly regularly now. 

Most active of these Contacts 
are Fred Bisselling <0S-9 
Cooma>. Ron Slmpkin (Bundaberg) 
and Jeff Larsen (Cairns). 

All of these guys are very 
capable with the CoCo, so you 
can be assured of fast good 
advice if you log onto Viatel 
with a CoCo related problen! 

Jin James who was the contact 
at Orange has moved to Cessnock. 
We 1 re sorry to see him leave, he 
was a big help in that city. 

The Geelong club held a 
programming contest recently 
which resulted In the production 
of some pretty hot programs. 

Congrats to Kirsad Bullc who 
won a sub to Softgold for his 
effort. Hope to see your prog 
in the mag in the near future 
Kirsad! 



Readers of Australian CaCO 
will have noticed Malcolm 

Patrick's name against some 
excellent thought starting 

articles on Machine Language. 

Malcolm's work follows on 
discussions that have been 
taking place in the local club 
at Whyalla, and is very welcome 
material! 

Bill Boardman from Port 
Lincoln gets around computers! 

He started as a HC 10 
contact, moved to the CoCo and 
to Forth & now he uses o Tandy 
1000! 

So local people who need a 
man with experience need look no 
turther! 

This month I attended two 
users meetings. 

The first was more a sort of 
"drop In" day at the lovely Dl 
McKinnon's Tandy shop In Coff's 
Harbour. 

There we showed the new range 
of CoCo soft & hardware we are 
handling, Including the hard 
drives and the new IKS 

relational database. 

We then racved on to Grafton 
where a bigger meeting was 
planned. We'll have details of 

this event next month- 

The Latrobe Valley Tandy 
Colour Computer Users' Group now 
consists of three divisions. 

Each new group has monthly 
meetings in their respective 
towns/cities and the plan is to 
combine for feature events. 

Families are especially 

welcome. 

The Latrobe Valley OS-9 
Users' Group was a subgroup of 
the 'Valley CoCoHuts' but now is 
separated and has regular 

meetings at Korwell. 

The group, which Is 

affiliated with the national 
0S-9 Users' Group started last 
year and is running currently, a 
course for its members in OS-9. 
Basic 09, assembly language and 
"C" will follow later In the 
course! 

All 05-9 users are welcomed 
including those with "homebrew'* 
6809/68000 systems, CoCo's, 

Ataris & Amlgas. 

The Latrobe T1000 Users' 
Group may be formed later in the 
year. In the meantime, Peter 
Foley is the contact on 051 74 
5791. and any problems with that 
machine can be directed to him. 

Gippsland is now well 

supported with Tandy outlets in 
Sale, Traralgon, The Hid Valley 
Tandy Store, Korwell, Hoe, 
Varragul, Pakenbam and 

Vonthaggl! 

Ho wonder everyone In 

Gippsland Is going Tandy! 



The following Information was 
supplied by Brian Dere Gtreeter, 
contact far Bris Biz, the group 
for business users of Tandy 
Computers: 

BRIS-BIS is a snail special 
interest user group which 

specialises in business related 
applications mainly for the 
Colour Computet , 

The main aljn of the group Is 
to evaluate available software 
for functional use In business, 
both commercial piogrnms and 
those written by neribers, and to 
note the special features of a 
program that gives 1t the power 
needed for business related 
usage. 

Vher* commercial programs are 
used! that can be *»et-up as a 
'shell' for particular purposes, 
we uole those shells so that a 
library of applications can be 
set-up for shared use by the 
members of the group that have 
the particular base program. 

Another function of the group 
is to note data exchange 
ftfejtocoTs fnr transfer o£ data 
fron program to p:ograra, often 
those whli*h are uni elated. 

The type of programs the group 
,aie involved In are, word 
processors, spreadsheets, 

databases, graphics, 

cumiO'inicat Ions,. i inancial and 
Integra ted software. 

With the release of the CoCo 3 
and Level [1 OS-*, higher levels 
of application for the CoCo will 
be available, and accordingly 
the aroup is expanding to 
encompass all CoCo 3 and OS-9 
Level II applications. 

We meet at ray hone office, and 
adjacent Carpoit, on Brisbane's 
southside on the third Saturday 
of each month (except December) 

at l.OO PK. 

Because Of weather (eg windy 
or rainy days' ring to confirm 
if the meeting Is still on. 

Bring yaur CoCo and gear (+ 
powerhaard) If ycu like, as 
thGIG is now plenty of rooiB tor 
setting-up other CoCo' s in the 
carport, beside the office. 

So If you live In Brisbane or 
near environs, ar»d feel the 
group looks interesting, give me 
a ring on 349-4696 after 6.00FM 
to find out when S where our 
nest meeting is. 

Competitions 

The Grophix Competition Is 
getting into swing again, but 
this year the time period 
allocated is a bit shorter than 
last, so if you have something 
to submit, or if you are working 
on something, get a move on, 
because you only have until the 
31st July! • 



Martha has been busy doing a 
bit of work for me on Viatel 
lately, but she promises she'll 
have something to say next month 
about ber contest! 

And the Games Contest also 
closes on the same date. The 
prizes for this one are 

especially exciting, but again 
tine Is limited so hurry! 

Telgraf 

Telgraf started with a 

flourish & ended quite suddenly! 

There were rumours about the 
system and the owners for 
sometime prior to the thing 
going Under, but we elected to 
support it because we felt that 
the puuple operating It were 
prepared to have a go - 
something that is missing from 
our business world these days. 

It Is very easy these days to 
find soaeone who will tell you 
why something can't be done, 
very rare to find soneone who 
will TRY to do something. 

On this occasion we were 
wrong, but fortunately it 

appears that no One from the 
public has been hurt, so that Is 
good. 

1 always feel very sorry for 
people in business who go broke, 
it is a tough decision to mnfce, 
and an even tougher life to live 
afterwards, 

The Tandy Store Award 

1 had hoped to have photos of 
the staff at the Eourke St store 
for the magazine this month. 

Unfortunately we had some 
sort of breakdown in 

communications 8i we'll have to 
show you what they look like 
some other time! 

Hell Soulier is the nanager 
there - I have known him for 
sometime. He has a very 

different style, but one which 

wins him much respect and lots 
of customers! 

In fact over Christmas, he 
showed the other stores how by 
being TWICE as good as anyone 
else! That's some 

acconpllshment, and we 

congratulate Heil sincerely. 

The appropriate award Is on 
its way to you Heil! 





SPECIAL! 



MONTH 

only! 

12 Months 

Softgold on Tape/Disk 

CoCoOz on Tape/Disk 

$90 ea 

Hurry!! This month only! 
(Offer only valid if you 
ask for it!) 





NEED HELP? Write to Graham, to Dr CoCo or leave 
a message on Viatel and we'll do our best to answer 
your enquiry in these columns as soon as possible. 




bGax Graham, 

I am new to computers and I 
have purchased a Tandy 1000. 
Your magazine was recommended to 
me as a acrurc."© to %alu much 
needed knowledge of my machine. 
I realise that your magazine 
must cater to a wide group af 
users, but on my application I 
Specified that 1 have a Tandy 
1000 and I have found that your 
magazine nniy cover? a small 

ainuunL on the 1'IOOC 

I ant sure that ynn are 
Hndevom ino to alter this 

imbalance, but 1 feel that at 
54.^0 for one page in the last 
is-sue, It Is a bit expensive. 

Vault! you please answer the 
fallowing questions as 1 do need 
your guidance. 

1. Should 1 continue my 
subscription to Softgold for use 
wit.i the 110)00:" 

2. VouH it be any advantage 
fur me to purchase your 
Golddisfr? 

3. What does it cost? I quote 
from the order form 

"Golddlsk - available 

quarterly - 1 month: 416.00). 
Does this mean that the disk 

i« available quarterly at *lti 00 

* 3 = $48.00? 

4. Aie printed program:? 
'hacked mi! f ii 1 1 y Kit nperatlon 
before th«y are placed in the 
aagaaittQ? If they were this 
would help new users like we. 

My daughter 4 I both typed out. 

the pi ograrn "Air Raid" and it 

failed ho wen k proper Ly for us. 

I would he ntast happy if you 
would writ*? me a reply- 

Rob Kiln* 

WhaUn, NSW 



D&At Pub, 

Vhilst we expect that this 
magazine iax sometime to eatw, 

t*t?' II nat brr fully laden with 

Tandy 1V00 pragiams, under 
notinal circumstances we would 
exp&ct between $ and 16 pages of 
content in one torn or another 
for your jiu chine. 

Program* and articles for this 
magazine don't mater ialize we 
out of thin-air, and we 

certain ly »ion ' t havi* the time tn 



write them; we depend on people 

who use their Tandy 1000 to 
provide us with the Information 
for this magazine. If there no 
no information coming through 
from the users, then it is very 
difficult to print any, 

Galddisk is issued quarterly - 
that Beans once every three 
months *e Issue another one, in 
theory. In practice, the second 
one we issued had problems and 
were sttll attempting to 

overcome it. Once that One Is 
available, number three will 
follow (airly quickly. 

Programs are run usually on a 
clone, the Tandy WOO with 364K 
and o 256K Tandy 1000- 

These three computers don't 
always pick up every problem, 
cecause there are so many little 
differences even between VOS's 
for ea: h individual computer, 
but 1 am iairly confident that 
you shuuidn' t have had any 
problems with the "Air Fetid" 
program. 



Dear Graham, 

I wuuld like to enquire about 
on earlier issue Df Australian 
Rainbow on Tape. 

In the Australian Rainbow 
Magazine for November 1985, 
there are a number of programs I 
am interested in. Please could 
you tell me if one can obtain a 
copy or know where 1 can obtain 
a copy of Australian Rainbow on 
Tape lor November L*JQ*D'f 

If you do obtain a copy Dr 
know where I could obtain a 
oopy , could you please send me 
your information along with the 
price cf the tape and any other 
addi tianal informat Ion? 

Thanh you, 

Graham Angel 

Griffith, HSV 
Dear Graham t 

1 am afraid that this tape /? 

no lon^ei available, and neither 
is any other material relating 
to Rainbow. 

You nay he able to obtain one 
second hand by advertising for 
it. 



Dear Graham, 

I am writing in the, hope that 
you may be able to assist with 
regard to an article in the 
April '8G issue of CoCo Magazine 
concerning a program that was 
indicated to be In that specific 
issue. 

The program was not printed in 
that issue nor was the follow up 
article, stated to be due in the 
next issue (May). I have 
searched all my magazines and 
there is nc further reference to 
the articles in question - these 
articles and programs were 
supplied by Thomas Clarke and M. 
Garth of USA & Australia 
respectively. 

The reason 1 have not 

contacted you prior to this date 
Is that I am sorting through my 
things prior to packing and do 
nut have an address of location 
at this stage. 

I am a licensed Amateur CRadlo 
Ham) and the article I refer to 
is on Satellite Tracking. I am 
waiting on my antenna system to 
arrive and of course would find 
the article on tracking a big 
help for operating satellite 
corawunlcat ions. 

I purchased the magazines from 
the local Tandy store and please 
let me know of any details as 
soon as possible. 

Cheers- for now and thanks for 
a great magazine. 

FW. Tam 

DUN DAS, KSV 

Dear FV. , 

Yes, that was a program we 
missed, The best thing we can do 
is to re-print the entire 
article, program and all in the 
forthcomtBiBg edition of CoCo. 



Dsar Giadiaia, 

I wuuld greatly appreciate it 
if you would be able to answer 
ny questions regarding the 
Colour Computer "3". 

! would like to know when both 
"Telewriter 64 M and "CaCoHax' 
will work on this new machine, 
as they are my two most used 
programs. it is senseless to 



even think of updating ray old 
unit until th»y run hazard ire«- 

Davld HcNevtll 

Dundos, SSV 

BQar David, 

This letter was written and 
replied to using Telewriter 64 
on a CoCo 3 with no change to 
the program whatsoever. 

CoCoMax, I'm told, runs fine 
so long as yov load the program 
and then resave it first. 
% 

Dear Graham, 

I am writing to you to enquire 
about sorae programs which have 
appeared in your Australian CoCo 
Magazine which are also 

I would like tu know l.f the 
"Be&t ol CoCoOz *3" and "Best of 
CoCoOz #5" ore still available 
on tape. It would please rce to 
know the price and the way I 
would go about ordering them- 

1 would hope you could reply 
as early as possible so 1 nay 
order this software and obtain 
it. 

Your s sincerely, 

Paul Booth. 

Tullaraarine. VIC 

Dear Paul, 

Those pioducts ate still 
avallble and are advei tised in 
our magazines currently. The 
price is $10. 00 lor the tape ur 
the disk and the progiams listed 
under the heading "CoCoOz #2 
part 2" or "CoCoOz *5" are ALL 
on the one tape and are ALL 
Included for the price of 
$16.00! 



Daar Graham, 

Earlier this year I wrote to 
you concerning the possibility 
of obtaining a copy of the 
"Cooking with CoCo" patch for 
disk BASIC. This was just before 
the Queensland mail exchange was 
blown up and so far [ have not 
received an answer or any type 
of information about the 

program. 

1 can understand the work load 
on your office to produce two 
magazines of great quality and 
the fact that you have decided 
to drop the 'yank rubbish* from 
the magazine is not only a brave 
move but it should enable more 

Australian programmers tea have 

their work published. 

Can you see a push into the 
amerlcan computer magazine 
market? The domination of the 
(American) Rainbow <tm> in it's 
cwn area should be kicked a 
little, if not to help your 



sales but also to wake them to 
reality and to the fact that 
they are not the only magazine 

in the world that is bought by 

TRS-80 CcLour Computer User's. 

The work will be hard but 
don't give In, I wilL keep 
buyirg both publications as long 
as they are there to be bought. 

I buy them about two weeks 
apart and hack through them. 
They teach rae as much as I can 
learii. 

Watch this space for programs 
that are under ray pen now ... ! 

With all my regards, 

Steve Fidgeway. 

Ingleburn, BSV 

P-?ar Steve, 

Uiifui I unaiely we are unable to 
assist you with details of the 
"Cooking with CoCo" patches as 
this material is owned by 
Falsoft in the U.S. and we are 
no longer their agents in 
Australia. 

The move to publish Australian 
articles and progs aiss only is a 
very scary one, and certainly 
can' x be successful without the 
continuing co-operation of a 
large number of Tandy Computer 
Users. 

Th? U.S. nkigazine is a fine 
publication wehirh har. taught us 
all a great deal over the years. 
1 aw very proud to have been a 
jrart of it for so long. 
Unfortunately, the cost of U.S. 
dollars plus the growing 
introspection of that magazine 
made it difficult to justify 
cont !nuing with it. It was a 
very sad day, the day we ceased 
trad lag with then. 

Ve already have magazine going 
into Canada, the USSR and other 
cotinrf rr?s and I've na duubt that 

1n tine, we may put magazines 
into the U,S. At this stage we 
tire not in a position to finance 
such a commitment. 



Dear Graham, 

I wonder if you could help me 
with a little problem. I am 
teiii$ sent to Hong Kong (no, 
that's- not the problem) on 
business and it occurred to ne 
that I might be able to purchase 
a couple of disk drives for my 
CoCo while I was there. 

The problem is my knowledge on 
the various formats is somewhat 
limited. Assuming 1 purchase 
either a Tandy Controller or one 
of the others available in 
Australia and 1 am able to pick 
up 40 track drives, will these 
work with disks used on Tandy's 
35 track drives? 

For example, sometime ago i 



For example, sometime ago I 
obtained a co py of Telewriter 6-1 
on disk (original, not 

pirated) - would this, work on a 
40 or *>ven an 80 track drive? 

Thank you, and keep up the 
good wui k. 

Ron Cook, 

Varrandyte, VIC 

£>ear Ron, 

Purchasing disk drives from 
Hong Kong isn't such a bad idea. 
Bat one of the questions that I 
uuuld as* myself before I went 
and pot chased drives is, "Vhat 
do 1 want to do with them in the 
future? Do I want to go into 
other languages or do I just 
want to stay in BASIC?". 

li yo'3 wanted to go into say, 
OS-9 (another programming 

laguage), then purchasing 40 and 
80 track drives would be an 
great idea! But if yov're not 
into that sort of thing, then 
buy the 40-track drives. 

Tandy disk drives (both 
vertical and horizontal drives) 
are in actual /jet 40 track 
drives "dressed-up" as 35 ttack 
drives, ie they use only 35 out 
or the to tracks. 

To give an example: Ve here 
use a 40 and 80 track switchable 
di ives with a switchable Rainbow 
Pits ht and Tandy 1.0 DCS, Vhen 
we're u^ing BASIC, we switch the 
drives over to the 40-track 
mode, ami when we're using other 
languages (like OS-9), we switch 
to 80-track drives. 

BASIC, by the way, does not 
support 80-track drives. Other 
languages (like soize versions of 
OS-9) will support 80-track 
drives. 



When sending to us for 
anything, please detail 
what you require. 

Recently we have had 
several instances of mix 
upa caused by people 
sending a cheque only in 
the post. 

Even if you send your 
info on Viatel, or speak to 
us by phone, it is still 
necessary to detail what 
you want in a note you 
enclose with your money. 



If you hove a problen of a 
technical nature, or you have a 
problem of a programming nature, 
or you Just have n computer - 
orientated problem, send It in 
to us and we will ask Dr CoCo to 
try to answer your problems. 



Dear Dr CoCo, 

! aid writing to enquire about 
the ca^S'?t. te tapus 1 received 
1 t ora you on the subscription to 
I. lie magazine. 

I have attempted several times 
to load these tapes but I always 
get an eiior message 01 "Out of 
Me mar y" . 

The message? are not at the 
beginning of each tape but some 

ate only a quartor of the way 

through. My computer is a CoCo 3 
so I don't see that it should be 
an cut of memory so soon In the 
program. 1 enter CLCJAD and ftUH 
every time. 

Could you please 1*?' me Xnuw 
what I'm doing wrong or if th<? 
fault may be In 'he cassettes. 

TtankJiig yoj in anticipation. 

C.J . Knuwles 

Kil^ylJi, VIC. 



Vest CJ, 

The iv could be rainy things 

wmg in this sort of case. Vhat 
I will attempt to do is list 
S0J&? possible \~auses and 

ieiwdies.. 

I. You uould clean your tape 
recxrrder and cold -start your 
CoCo eve>rytime you have finished 
with a ptugiam; tnjs, in actual 
tad , is COflffi th i ng we ha ve 
vncioi seJ *ince the beg inning! 

?, You could lake the tape 
down to the local Tandy store 

jnd ask them if you could use 

their CoCo 3 to check a tape (or 
soste other excuse), 

ibu ffcen proceed to do the 
pane thing on the s-tore's CoCo 3 
as you did with your own CoCo 3, 

The theory here is that you're 

using a different CoCo 3, a 
different tape recorder, a 
different pnwet source tin some 



areas you might experience power 
surges and in in other aieas you 
might not), and numerous other 
things. 

]f you tend to get the same 
errors ycu got before, then send 
back the tape and we rill 
replace the tape pronto! 
Send it to: 
Fteepo&t 5 
Fo Box 1742 
Southpatt, Qld. 
4215 
So postage is required far 
this address. 



Dear Dr CoCo, 

Could you suggest a Database 
lor a card index register of 
(ami lies & members which would 
not be too hard to use? 1 have a 
DECB G4K CoCo 2 and use VIP 
Writer. Would the VIP Database 
be O.K.? 

With klftd regards, 
John A. Ford 



Peat John, 

In your cass, VIP wnttlti be 
aliight, as well as Deskmat? and 

Penpal. 



Deair Dr CoCo, 

1 an having problems with 

CC-TALK < o cicar t tsriBinal 

package) in the December 
'84/JaiUiary '65 Australian 

Rainbow. 

I call a bulletin board, 
connect my modem <a VI 275 type>. 
ynter talk rood* and. I can't read 
any messages although I think I 
can enter thera. 

I ouepect Control codes as I 
dan' t know any. Perhaps you 
could ^end me a list of phone 
numbers and control codes for 
public BBS's? 
Yours desperately, 

J ason 

Seven Hills, MSW 



Beat Jason, 

There will always be a list of 
public BBS's published every 
January, vith their telephone 
number*. 



Unfortunately, as this list 
cuiMG ii'Dii an external source, 
we cannot give anyone any 

control codes except for sosae 

preliminary entrance codes, te 
■Press <SUTER> to log on 1 , 'Type 
VISITOR', etc. 



Dear Dr CoCo, 

Could you or one of our 
readers please hslp out? I own 
a CoCo 2 ECB 64K, and am using a 
DMF-130 printer. 1 also have the 
tape version of Telowriter-64. 

But for the life of me 1 can 
not get into the world of 
printing graphics on the 

printer. 1 an a regular reader 
of both CoCo '.now ooftgold) and 
Rainbow (now CoCo). Both 

publications have numerous 

programs which state, " 
place your screen dump routine 
here ... tf < 

Terrific, the only screen dump 
programs 1 have seen SO far are 
for every other printer except 
the DMP-130. 

I am aware that some people 
will say, "buy CuCoHax or 
something sinilar", but by doing 
that will we ever 2e3rn about 
our CnCo? 

It is frustrating to buy and 
read CoCo every month knowing it 
is printed with the same 
equipment that 1 have yet not 
be-in* able to do the same 
myself - 

Fred Remit:, 
Dun t roan, ACT. 

Dear Fred, 

Your frustrating days are 
over! If yoJ look at March 198? 
CoCo in the? beginning of the 
magazine, yon will see a program 
called "Scr-Damp" by Craig 
Stewart. 

Thiin pi og ram wl 1 1 dump any 
FMODE 4 graphics picture to a 
DHF-130, twice the size. 

On a side note; we here at the 
office use DHF-130's to print 
out the information you're 
reading right now, and more 
recently dump pictuses to vse in 
the rmgazine. See "Dragon", pg 
1<? of Aprils edition cf 

Softguld. This picture has bad 
to be reduced and is usually the 
size of one fan-fold paper 
(across* and half S sheet of 
rape r f cf o \<n ? . 
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Cc« StatiDti 012 

002 Clubroaa 

7<k9813B6<i 

THU 3G MR 196? 17;59:26 



642*018 !a Or. 

Re "her 



> Oopsi damned programmable keys! . 
Ho*& thing*: It has been lainlng here 
nual u! Hi*? «l«y! Clgh, tonHtrow Is not 
RDO! 

dBES'l 2 



W)n VJisi. le an tor a) RDO? 
I'm hawing f un using the programmable 
keys un C'jC&Tex V3 1 trying to 

piogian e key to download a fiarw 
is ...em, an educational experience, 
id say \l\* i east . 
Rleto»y Rat 



Con Station 642 64290182a Oc 

G-)l Clubroon 

TQ7000760 

tHU ^6 KAR 198? 19:59; U2 



> j- DAY TtIO, UFO, RED AND EVERYONE ALSE OH 
AND 1 RETkK SAV HELLO 7U JEFF. HOW'S 
EVEFONE TOM GOT. 

sina 



Hello, slno. Did you f i t.iI cut what yau 
wanted to Know from UFO?? 
Also hi to ufo, r*4 and pwiynn? else 

uu-lLne tonight! 

A Ho, totter say hi to Jeff, our 
resident 'CLuhrooiierian' ... 

Ask i* fin a description of o 
•Clubioomc c Lan' ! 

Mi.-V-y Pat 



Con Station 642 6«1290t£0a 0c 

*0l Clubionn 

7*ir.iooir»o Hfunhm 

THU 26 RAP 1387 14: 53: 1.1 



> HI, UdyBug here Intiodwing myself 
an vlatel and I hop-? to Re*, to know 
soinf of yon a bit better ton. 



Hope to have soae good times and a 
lot at laughs along the way. 

I'm albtt looking fur a companion and 

since there's no "PERFECT HATCH" board 
l-ere. Anyone wanting t,o ge'. to know me 
bed.tei. send me a tDosssage on Clubroom. 

LadyBng. . . ._ 
Hey. how 'bout that, there's a bird 
looking for someone - welj, you've 
eciK to the right place!) Xlckoy Pat 



Con Station. 042 

f>0\ ClubiO'jm 

00700 1250 

THU 2<i KAR 1WT 21i52:'S& 



61200197a Qi 

Member 



* Slrao, 

Thank: you lor youi advies but 1' 
I tak« the rUk and go full «t«an 
ah-ja-1 on Viatel, 

udyBus 



Com Station 642 64290134a Oc 

fl03 Clubrooa 

033119340 Heater 

THU 20 KAb' 19Q7 20; 47:04 



> Hi Hie key Rat and JoKeR 
THD oltei op#rnMan????> 



HI All 



Tasaaulac 

Ht>. TSO's new nn»» and colour I I've got 
a grdid announce ■wot to make! 

Pr ««« 2 now! ! 



tan station 642 64,2 Q 01O':a 0c 

001 Clubroom 

<jn'J'/12*>90 Menber 

THU ?fi MAP 1?0T 2i.0:j;16 



* OViy, I'll be tlui nog 

WHAT IS A f.UIHf/CinMAH 

-PEP. 
Top Alike lor the first answer? 
Vo«j fall in the second statenent. 
though! 

'Clubroomiaft' •= ndl. funta-lntng to 
i.li'j-o who wlLl always co»> onto 
Clubroom whether there la somebody 

there Df not. thtmigh lain, hall, 
^tntm, nucl&ar war, flood, and an 
ati^-;l( of ho i pen. 
Hl'.key Rat (AJoKcK ...» 



Con Station 642 

601 Clubrnom 

7551(15770 

THU 26 MAP 1987 2l:.g2:&2 



►142991860 0c 



> good day ya Mongrels wnat's up/Y is 1 
l frlday or «n 1 being extif>neiy optlmls 
tic?" liello, i-s anybcxly out there???? 
dar-.y 



Due to changes In the weather, and with 
th* sun coning closer to the earth plus 
d.Tylijht savings, to<lay is really onl.y 
Wednesday! however, beaause of lack of 
Int-'ie-st Wednesday was cancelled and It 
h» b been replaced by Thursday*.. 
JctfeR 
Vliat have yau b^en on today? hashish? t 
cooaln? or was It L"D? Snwithlngs a 

got' -j explain ynur happy mood! Hir.fcey R 



Co» Ft.itlon fi42 042^0140 0c 

#PI ClubrooTn 

I E / 3 F H S H E V S FLASH 



The two auperpuwvrs have Just 
declared war on each other! Ruclear 
War !«■ now lnattuent! 



N"w^ r t IIIibjiI 12.00pm 'Qld titoe) 



Con Station 642 64290187* 0c 

901 ClubrooB 

067000700 

THU 26 HAR 1987 21:06:14 



> OK I'LL BICHT WHAT'S A 'CLUBRQKERlAr 
YEP 1 FOUHD OUT EHOUGH TO KEP HE l* TRO 
IIB(.F FOR AWHII.F FRC1H UFO. WISH I HAD BEE 
M ABLE TO SPiHU ROPE T1HE DOW* THERE SOS 
1 I HI^ED YOU Ti' 

sua 

,., and you still nte&ed hill, too! 
So how's UFD these days? 
Rlchpy Rot 



Ho contn*'>iit . . JoKeR 



Con Station 642 

©01 Clubroom 

063003280 

THU 20 HftR 1907 Si ; 05; 53 



64290188a Oc 

■eabar 



) Evening. *h wttat a beautiful day. Harn 
ony all round Isn't it wonderful having 

a stionn; government and an equally stron 
g opposition. Got my education toay by 1 
lstenlng to parllaaent. If you think Jofc 
ei 's Johes are good, then you should tak 
e an hour off and listen to tho blggestj 
oke In the cuuntry. And what's worse I 
s that our aoney help then to behave ant 

hey do. 

WOODROW 
IFor a good nights laugh ... hear 
"Parlar»?nt" ... tonight! Mickey Sat 
Thanh you, ! like ny Jokes, and I also 
■v>Vo » ROCd Clip nf qnff«a>| InVoR 



Con Station 642 64290189a 0c 

801 Cliibroon 

0670007QO 

THU 2'i MAR 1987 21: 13:39 



J AFTEP REAPIdC A FEW HBSAGES I FOUHD IH 
E0NE PWffl lAIiYBlir; ABD THOUGHT I WOULD WO 
RN HER ABOUT YOU LOT. AMD INgOPE HALF OP 
WHAT THEY SAW AMD FORGET THE REST. 

sun 



Ssssss-hhhhh ... quiet, you fool! 
Do you want net to know about us?' 
HI-: key Pat 

1 would llkn to send a cheerio to 

LodyBinj 11 flic's walt-lilng. -.. JuKett 



Con Station 642 64290170a Oc 

©01 Clubroon 

7M1O0150 Menber 

THU 2C HIR 1967 13:27:46 



It you're watching. 



HI KunMt !!!!!)<!!!! 



loK?R 



That's alust as bad as the last Jofce. . 
Mickey Rat 




by Samantha McCormick 



HI! la lost month's n»S ( y» u 
DID get the April Soitgold 
didn't you?! > i decided to give 
the unlnlated a quick run down 
on VtateUiah* in gmieral. 
Hopefully you now have a 
slightly better Insight Inlo 
what Viatel and Gold link Is ;-il 1 
about. Ho 'iuubt you -it^ all 
wondeilng "Kow Jo I join?" Vh»t 
do ! need?" (U not. humour ae 
any way l > 

There are r*v*r«l 

pre-requisl tes: 

1/ A sc teen, keyboard, modem 

and telephone. 
2/ A good seirce of liuiocui . 
3/ A burning deSlte to be 

corrupted. 
A/ A stt&ng Iwart Caee Viatel 

FagQ ««&*> 
5/ A pseudonym. 



Tou &e« In a-ldition to a whole 
ne „ lan B uage r we all. or 

neaily all, a-Jopt pseudouyws on 
V Intel. Hamas that we ar» known 
by oi renouiK-d as. Till© not 
only allows you to be as .rrnzy 
a-5 you Like without undue 
repercussions, but also tends to 
make rnas^igiuK a lot mora 
interesting. 

Lord Something or Other can be 
Infinately piet'eiable to fUBS 
plain VlUred or Harold when you 
a.e trying to make *n 

Inpre^-^ion. 

It also give? an interesting 

inslgllt into Ihe persunallUtes 
or our User*.. A large number of 

Viatellians opt to be ftsso- la ted 

with vartoua Corns of wildlife 

I.e.. Vildfitfepasti fo»« VoU - 

Wombat. LadyBuf. VhUe Rabbit, 
HVAH (couldn't forget that 
one ! ) . 

Others preier more regal 
titles; Supt«fl* Cmnmandei, 
Trlncess Cyguu". Faragon, lady 
Daisy. JoKeK. Lord Chonk (or 
should that last cone under 
wildlife?)- 



Then there are the deeper 
name*; En Parent. Eddorean, 
Monticore. Anyway you look at 
it, the list is as wide and 
vailed as the imagination* o£ 
0U r use.s- Us not all hat 
GaS y selecting Jw* the right 
name though. 

One of our Com Joks had -such a 
problem finding something 

appropriate that fa* ended up 
calling himself M.O. CThe 
Ma molest One) . 

Apart irom the pseudonym and 
other bits and pieces, Viatel la 
prMiy much open to everyone. 

Our winbers range In age frcin 
12 years to late 60s. Or In 
WoodroWT. case early 60 l s 

(Grata* node me say it Woody- 
bonf"tt!> They are all flours, 

crmteaw) personalities, wtth a 
huge rnnge of interests. We do 
out best to cater for as ma-»y ° f 

t.he^e Interests as possible with 
the l.uards available an 
Goldlink- 

So, :mw you are beconing part 
of ths family so to speak, lets 
have a look at: 

Things to do on Goldlink 



You --.in party on CUIHROOH, 
Which i- where the rabble gather 
tn have tun, Give and receive 

cuthllas tin the CUDDl.B B8A8D. 

Contact the KUHETOKK KF.LF 
p.OARri 1! you are a -tudont -stuck 
on an assignment ai wading 
thioujth exams. Bi owse I hi ough 
the TRAVEL BOARD foi an Inr-Lght 
on wlier- tO go and what to do 
fnr tho:vs Impend Lag holidays, or 
ro commend or warn ua P» places 
you J.ave been to. 

Vent yom disguv.t m excess 
.i.IiBliatlon for television 

prugiamnes on T.V. TALK. 



Gain a sympathetic ear or help 
with any kind of problem on 
SWAN'S CARE BOARD. 

If the problem you ai e having 
is one of a garalng nature, te 
stoOK In the middle of an 
Adventure game with no Ldeo 01 
how to get out again. You can 

caii o.. voodrovs auras cubic. 

You can give and get hints on 
fishing on the FISHING BOARD. 



with fellow 
the board for 
RAILWAY -ENTHUSIASTS 



Gat togethei 
railroaders on 



Chat to C.B.'ers 
AMATEUR RADIO t-UAKU. 



on the 



An-1 of course talk computers 
nn any oi our COMPUTER USERS 
BOARDS: 

TANDY - 0S9 - ATARI - AFPLE 
fUMUDORE - IBM /TANDY 1000 
AMSTKAD - SIX - HSX & SEGA 



There are new boards coming an 
all the time so Utere Is always 
something to look fotward to. 
Life tends to be anything but 
dull at Goldlink! 

A* this column continues In 

the months to come. I'll 

intoduie yau to o few or our 
more infaaous regulars. 

Goldlink people have becoiK. 
for me anyway, more of a second 
family than anything else. 
Through Viatel 1 can honestly 
say, In six mouths I have net 
more people onfl Mde ,Dor * 

friends, flood friends, than 1 
have the whole tine I have been 
in Australia. 

For 'i lonely, homesick Kiwi 
girl it has been a r«al 

blessing, 

Catch you again n*xt month. 
See you an Com Station 642 



SVAH . 



& 



BLAXLAND COMPUTER 
SERVICED PTY. LTD. 

134 GREAT WESTERN HIGHWAY, 
BLAXLAND. N.S.W. 2774 

TELEPHONE; (047) 39 3903 



SUPER SALE 

STOCK PURCHASH) AT SPECIAL PRICES 
6 ouly CoCo3'b 1400 ea 

6 only Tandy Drives S450 en 

6 only RS232 Packs $160 ca 
(for UBe with OS-9 level 2) 

10 Mb Hard drives with controller 

for your CoCo2/3 41299- 

20 Mb Hard drives $1599 

512K upgrades for CoCo3 (won't work 

loose- premium 120 n/s 256K chips, gold 

edge contacts.) 

$199.00 inc. Disk Public Domain 

Software- RAM Dink Text Editor, 

Dia assembler, Window Utilities, 

Corns Software ■*-■. morel 



COLOUR 
,! DISKETTES 

Available in Lavender, Dark Blue 
Light Blue, Groy, IV-igo, Pink, Yellow 
Yellow, While-, Orange, Hod, Rurgandy 
Black, Hrown and Green 

TOP QUALITY CENTECH BRAND 
with LIFETIME WARRANTY 

SOLVE the problem of trying to 
locate your programs.... 

QQWHJR CODING MAKES IT EASIER! 



SSDD 123.50 for 10 

DSDD $25.00 for 10 

(postage free) 
PlcaSO state colours required 



JANDA <AUS) 
P.O. BOX 239 
MARYBOROUGH O 465(1 

106 NEPTUNE STREET (071) 23 1369 



RELATIONAL DATABASE ft 

...I nilCMKTC;' f'/ »T""M' i til- — — 



TltMM) and OoMo 3 = 

SPECIALISTS 




giiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiimiiiiiu 

I PENINSULA MUSIC & 1 
! ELECRONICS CENTRE I 

S SHOP 54, K APING AL HUB, 

I FRANKST0N 3199 

I! Ph (03) 789 7997. AH (059) 75-4790 

Best Prices on AMIGA Monitors 
and Data Sheet to nuit CoCo 3 




Specials on Computer Training "■ 

4 lessons for the price of 3 !! ■» 



~ Best prices on Commodore Hardware I 



Contact: Michael Monck 



S * 



FREE 



DELIVERY 



niiiiiiiiimiiiiiimiiiiiimiiiiiiiiiiiiiiiii 
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SHORT 
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They came from miles around! 

In fact they came from all 
over the country to be at the 
Goldlink Bash in Melbourne in 

March! 

Once they got there, they 
even had fun! 

Ami they went home tired! 

A Viatel Bash (English - 
party), is not dull, is fun, is 
VERY friendly, and is exhausting! 

Once you've been to one, 
you'll go to them all! 

Join us for the next one in 
Sydney in August! 





Everyone's nightmare! 
(Wombat in burrow) 



The very definition of style 
- Macaroni 




Graham, PG U friends checking 
nut tltf photos. 




Manticorc, Deb 007 k Sun..er 
LCBs Bhar* an intimate moment 



EHo - a VIP from Viatel, with 
with an unknown MA08 





Nntionn, his SnpremcneH and 
a Strange Person (rest of 
pic censored!) 




Hun!ier Durk well lie wan tired 
really! And Sundry in hi* LCBn 
disguise 




L<*I3s in his Sundry disguise! 



Manurore, Deb 007 and 
Black Tanther - More BP 
found out what they did to 
hia lio>u«e! 





Half a Sundry / LCBs anil 
someone ordering 2! 




Woodrow really Imtc* Prnit 
even if he is wills Wombat! 




The lovely Gwen with Big Doli 





Cwy - showing thwircierl 




Eddnrran minus lii*< moustache 
— now il we enn amputate tlie 
pl^fl 




Th# Jackal n(. lib coininiMid po.it 



Wino it EP showing that some 

Vialdiana will go to any 

lengths to ftet to a Viatel bashl 



Ron Wright & his Mystpriouft Friend 




Dewrip, Maltese Sparrow, Abigail 
and The Jar Vat partying in 
A.leln.le 




Ah how innrringe rhnuges (Jieiitl 
Gypfty Rnver shire hr married 
Greenwood! 





GETTING TO KNOW THE 

TANDY 
1000 



ta 



It has occurred to me that 
there could well be a 
number of T1000 users who 
ore In a position similar 
my own, that Is. J USt 

learning their way around It. To 
this end It may be that. If I 
explain the problems t haue run 
into and their solving lit I 
can), 1 may well be passing on 
some .lelpful hints. 

The reference manuals contain 

a great deal of informatlDn but 

some of it appears a bit hard to 

work out without some outside 

help and also some very basic 

(not BASIC) points do not seen 

to be included. Of course I have 

the advantage of being able ta 

ball up Alex Hartman for help; 

which help I hope to be able ta 

pass on to other new starters. 

The Tandy 1000 gets mote and 



by Jim Rogers 



more interesting as it becomes 
more familiar. 

When 1 first fired up and 
loaded the MS DOS I thought that 
the whole machine bad blown up 
because nothing happened. The KS 
DOS wouldn't load. Ho mattar 
what l tried nothing happened. 
Just nothing. 

Then, having tried everything 
else, I got hold of another 
backup KS DOS and discovered 
what the trouble was. The one I 
had been using was faulty or had 




crashed or something. This- was a 
lesson in the value of making 
several backup copies, I now 
have six backups I ! ! 

Incidentally, the same thing 
happened with the program 

TYPIST, in this case, because MS 
DOS was now in the memory and 
therefore operating it could 
tell me that the TYPIST diskette 
was inoperable, a backup copy of 
that good got me going again and 
my first Job was a few more 
backup copies of that one also. 



THE OS -9 BOARD on n^iAm 



by Fred Bisseling 



This months article is 

designed to tell you a little 
about the 0S9 Board on Goldllnk. 
To access this Board you will 
need a modem, a Viatel number, 
and a suitable software package. 
Details on Joining Viatel and 

Goldllnk, plus Information on 

suitable software have been 
published in previous Issues. 

0S9 is a powerful Operating 
Sysien designed to run on 6809 
and 68000 cpu machines. With the 
release of the COC03 and the 
release of OS9 Level II expected 
shortly. the OS9 Board is now 



being seen as playing a very 
important role In assisting both 
the newcomer and experienced 

user. 

By accessing this board, you 
are able to leave requests for 
assistance or Information that 
may h*» of assistance to someone 
else. This Board Is supported by 
the national OS9 Users Group and 
Is checked by a member of that 
group most nights- If you are 
not a member of Goldllnk, you 
ore still able to access the 
board and read messages Cat no 
charge) but a small fee will 



apply if you wish to leav« a 

message. 

The National 0S9 Users Group 
have a monthly newsletter which 
contains a lot of valuable 
information for both the new and 
experienced user. To join, 
Glraply write to the Bational QS9 
Users Group, c/~ Graerae Hichole, 
9 Mllhan Cres. Forestville H.S.V 
2087. 

As time goes on, the 0S9 Board 
on Goldllnk; will become a very 
valuable asset to all 0S9 users. 



O 
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Telecom 




B/IAfEL 

AUSTRALIA'S NATIONAL VIDEOTEX SERVICE 



APPLICATION FORM ■"■«■*"«««» 

(BEFORE COMPLETING THIS APPLICATION, PLEASE READ REVERSE SIDE CAREFULLY) 



fj+ctton 

- PLEASE TICK APPROPRIATE BOX TO INDICATE SERVICE REQUIRED 
■ BUSINESS SERVICE U NON-BUSINESS SERVICE 1 j 

(CHARGES INCURRED ON BUSINESS SERVICES ARE USUALLY TAX DEDUCTIBLE) 

SURNAME (OR BUSINESS NAME IF BUSINESS SE RVICE) GIVEN NAMES 




1 1 1 1 II II III II 1 1 1 1 1 1 1 1 




POSTAL ADDRESS NUMBER/STREET 




Mill 1 1 1 1 1 1 1 II II 




SUBURB/CITY STATE POSTCODE 




1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 1 1 INI 




TELEPHONE NUMBER ON WHICH SERVICE IS REQUIRED (INCLUDING STD CODE) 




III III 11 








s#cftoo 

4* CONTACT NAME (IF BUSINESS SERVICE) GIVEN NAMES 




2 i ii i i i i i i i ii i i i i i i i i i i i i i i i i i 




POSTAL ADDRESS FOR BILLING (F DIFFERENT FROM SECTION 1 ABOVE 
NUMBER/STREET 




II I I l l ll i II 




SUBURB/CITY STATE POSTCODE 




I I I I I I I I I I I I I III 




CONTACT TELEPHONE NUMBER {INCLUDING STD CODE) 




LIE X 3 








MCtlOfl please DESCRIBE NATURE OF BUSINESS (OR OCCUPATION IF NOT A BUSINESS SERVICE) 




3 I I I I I I I I I I I I 




PLEASE INDICATE TYPE OF EQUIPMENT USED TO ACCESS VIATEL 




CO i_ l i I i M i i _j i i : i l : 








•P^Cfc* THIS FORM SHOULD BE HANDED IN AT ANY TELECOM BUSINESS OFFICE OR MAY BE 
Induction* MAILED WITHOUT A STAMP TO FREEPOST 20, VIATEL BOX 188C, GPO ME LBOURNE. 
VICTORIA 3001 

PLEASE ALLOW TEN WORKING DAYS FOR PROCESSING OF APPLICATION AND RETURN 
MAIL ADVICE. 





W9COITI 
UM 

only 



HI 



] H II 



9G 



□ 



SC 



U 



hi I I ! I I I I I I 




M I I I I I I 


I I 



GOLDLINK: The place to be on VIATEL 



En 



SPAN OVERLAY NO. 140 
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REGISTRATION AND SUBSCRIPTIONS 



Customers must register as a Business Service if the telephone number nominated for the use 
of the VIATEL Service Is a Business Service and/or VIATEL Is to be used wholly or mainly lor 
Business, Commercial, Industrial, Professional or Government purposes. (Charges Incurred 
on Business Services are usually tax deductible.) 



Where a Business Telephone Service is nominated for the use of VIATEL, but the use of VIATEL 
is wholly or mainly for Non-Business purposes, the Customer may be registered as a Non- 
Business VIATEL subscriber, providing the registration is taken out in the Customer's personal 
name and address and not a Business name. 



Telecom Australia will register the Business or Individual named under Section 1 as a 
Customer of its VIATEL Service and will provide the Customer with a confidential Customer 
Identity Number and Personal Password by mail. 

Where billing address is indicated, bills and bill related correspondence ONLY will be 
forwarded to that address. AH other correspondence will be forwarded to address under 

Section 1. 



Customers should advise VIATEL of any change of address as soon as possible. 



If you lose your Customer Identity Number and/or Personal Password, you must advise 
VIATEL In wrtllng before new numbers are issued. Our postal address is: Freepost 20, Box 
183C, GPO Melbourne, Vic. 3001. FOR SECURITY REASONS REPLACEMENT NUMBERS 
AND PASSWORDS CANNOT BE PROVIDED OVER THE TELEPHONE. 



Customers ol VIATEL acknowledqe that their name and registered VIATEL Number will appear 
on the VIATEL Mailbox Directory" and that Service Providers and/or other registered VIATEL 
users may send messages to their VIATEL number. 

Telecom Australia undertakes no responsibility in relation to Ihe accuracy of the information or 
service provided by Service P roviders on V I ATEL Telecom Australia will not be responsible for 
any loss or damage arising out of or in any way connected with the use of this information or 
service- 



Attention isalsodrawn to the terms and conditions governing the provision ol information and 
services by some Service Providers. These terms and conditions may, in some cases, inclu de a 
disclaimer absolving the Service Provider from liability regarding information and services 
supplied on VIATEL. The means of accessing these terms and conditions is set out on the 
Service Provider's Index Page on VIATEL. 



Should you inquire any changes to your existing telephone equipment (e.g. new exchange 
line, additional socket), please contact your local District Telecom Office. 



In a small number of cases VIATEL reception may be unsatisfactory. Correction ma/ incur an 
additional charge. 
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MICO NEWS 



Editor Jim Rogers 



Special thanks tbls month bo 
the two young Ladies, Catherine 
Threlball and Juli*Ue Hill for 
the programs they have 

submitted. 

It Is relatively rare for us 
to receive programs from the 
fairer sex, and these programs 
are therefore especially 

welcome! 

Keep up the good work - let*s 
see more of your work! 



I have received, again this 
month, one of Frank Kees' 
many letters to me, 

enclosing a copy of his 
program, DIGITIZ, for the MC10. 
DIGITIZ Is a method of 

recording sound and playing It 

back, via the program, through 
the computer. 

As always, Frank is obsessive 
In his desire to help, any aad 
all, users of the HC10 and CoCo. 
So If you have problems and 
require help or wish to learn 
more, Frank sits there waiting 
for you to contact him. 

Ka Is a contributing 

author to our American MC10 
counterpart, the KCUG newsletter 
and be is a chap with many years 
of experience in computer 

development. Believe me, we are 
very fortunate to have the 
benefit of this experience and 
any of you can share this by 
writing to Frank at: 

FRANK REES. 
17 KIHG ST. 

BOORT. VXC. 3537 

It will have been noticed by 
some and thought that I have 
changed over from the MC10 to 
the T100G. NOT SO! I have been 
conaed, somewhat, by Graham into 
trying out the new Tardy 1000 



and 1 have to admit that It is a 
beautiful and interesting 

machine. However it is a machlce 
entirely different to the MC10 
and also the CaCo. 

As yet I am only starting to 
find my way around the T1000 and 
have not, at this time, found 
the familiarity with which I can 
use the HC10 

Reluctantly, I hav« to admit 
to myself that the day must com 
when the discontinued HC10 will 
have to be put to one side. 
After four years of a lot of 
work my little machine hasn't 
given an ounce of trouble but 
should the day ever come when 1 
may require any sort of 

replacement parts where would I 
get them? 

Therefcre in the meantlroe, 
until that terrible day, 1 will 
keep on with the KC10, but I 
will hedge my bets a little by 
getting some experience with the 
T1000! 




GOLDlinK 



a Goldsoft Service 



for 



*642# 




Tandy Computer Owners 
Atari Computer Owners 
Gold Coast News and Information 
Rail Enthusiast Information 
Amateur Radio Information 
The Viatel Fast Florist 
Consumer Watch 
Articles and Reviews 
Hardware and Software for 
Your Computer 
Bulletin Boards 



i 
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I 
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m 
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ELECTRONICS 



(Formerly Bayne k Trembath) '-.- t 



This months special... 






Top of the 


"ange 




Cordless Telephone 


with 


pager 


12 months warranty 




£289.00 



B k T Electronics 

Shop D 1451 Ncpean Hwy. Rosebud 3939 

(059) 86-3134 AH (059) 85-4947 
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CALENDAR 



16K ECD + Any TANDY Printer 



43 IaLEBDER 13 A program 
C3 originally nade by Hong 
^^/Kwang and published in the 
American Rainbow Magazine. It 
used a Star Mioronics Delta- 10 
printer ... and used a screen 
dump to to priunt the calender. 

My new version, using Hong 
KwulU'? technique, has beetl 

modified for practically al 1 the 
Tandy printers. 

If you want, you can dump e 
graphics picture first and then 
use this prugraro to print a 
calender underneath the picture, 
thereby creating a wall calender 
with the picture of your choice. 



The Listing: 



OCT CSC 

1 '*r.*t*»t CALENDER *********** 

***** JOHANNA VAGG ********* 

3 3AVE"173L:3":END* 10 

20 KEH EDIT 270 FOR BAUD RATE 

30 PEN 1987 CALENDAR ADAPTED BY 
JOHANNA VAGG 

40 REM ORIGINAL PROGRAM BY HONG 
KWONG (AMERICAN RAINBOW HAY 
1906) FOR THE STAR MKKONICS 
DELTA- 10 FHINTER.. IT HAD A 
SCREES DUMP. THIS VERSION IS 



FOR TANDY PRINTERS.. PICTURE 
TO BE ADD6D BY A SCREEN DUMP 
OM RE- INSERT I EG PAPER 

50 REM POSITION PRINT HEAD TVO 
THIRDS D0VN THE PAGE 

60 REM HAVE ENOUGH PAPER FOR THE 
NUMBER OF CALENDARS REQUIRED 
AND LET THE COMPUTER &PR1R1ER 
DO THEIR STUFF. -ViLL CONTINUE 
UNTIL THE PAPER RUNS OUT! 

100 REM 1987 CALENDAR FOR PIC TO 
BE ADDED 

HO CLS 

160 DIM H<12,6 t 7>,M*U2> 

170 ES=CHR£C27)' ESCAFE CODE 

160 C$-Et+CHR$(20> , C0BDEHSED 

190 IK$-ES+CHRS<19)' NORMAL 

210 Xl$=EtKHRS(U)'ELONGATE ON 

220 X0J=B$+CHR$<15>* ELONGATE OFF 

230 EH*--Ei+CHRS( 3D' START BOLD 

240 IF1S=CHR4 M5> ■ UNDERLINE ON 

250 irOt"CHR*<U)' UNDERLINE OFF 

260 TA*3:P=-2 

270 PDKElSO.dl'SET RAM PATE TO 
1200 

2fi0 READ YS' YEAR 

290 FORH-1 TO 12 

300 READ DD.N 

310 FORV=l TO 6: FOR D=l TO 7 

320 H<H,V,D)=DD 

330 DD=DP*1 

340 IF DD>N THEN DD--20 

350 NEXTD,V:NEXTH 

360 FOEI=l TO 12 

370 READ MS<X) 

330 HEXT 

520 PBtlTtP, Tff4jT1i;KK*;TAft<28> 

YS;XOS 



1 ^lE^-p- 



Johanna Vagg 



525 PRINTflP.CS 

530 FORX=1T032 STEP6 

540 PRINT#P, M " Ul$; STRINGSU 

33,32) U0S 

550 PRINT#P,TABC3>"!" QlSpFOR Y 

=X TO X+5 

560 FRINT*P t " 



"M$<Y>" 



570 NEXTY:PRiNT#P,U0* 

580 A*="S M T V T F S!" 

590 PRINT#P,TABC3) "!";UU;" " 

AS" "AS" "AS" "M" "A£" "AS 

; UO* 

600 F0RW=1 TO 6 

610 PRIHT*P,TAB<TA> "!"; 

620 FOR M=X TOX+5 

630 FOR D=l TO 7 

640 MN=M<M,V 1 D) 

650 IF NK<1 THEN PRINT#P," " ; : 

GOTOO70 

660 PRINT#P. USING" *##";«M; 

670 NEXT D;?FINT*P,"!"; 

680 NEXT M:PRINT*P,U0S 

690 IF V=5 THEN TA--0: PRIBT#P," 

"U1S; ELSE TA=3 
700 NEXT V 
710 NEXT X 

720 PRIffT*P,CHR*(12)-FORM FEED 
730 RUN' START AGAIN 
850 DATA 1987 

560 DATA -3,31,1,29,1,31,-2,30,- 
4,31,0,30,-2.31,-5,31,-1,30,-3,3 
1,1,30,-1,31 
870 DATA " JANUARY"," FEBRUARY" 

MARCH"," APRIL'*," 
MAY"," JUNE"," JULY"," 

AUGUST" . "SEPTEMBER" . " OCTOBER 11 
," NOVEMBER"," DECEMBER" 

o 



J&vtfV i 



mm 



RfiKH 



mi 



m j 



m 



V 



f SI i H T \i ' F V S M 



S! 






A 5 i\ 



I 2 3 4 5 6 7i ! 2 3 t 5 6 71 12 3 4! I H 

• i 5 6 7 5 3 It! 3 ? 10 Tl tt 13 W B 510 '1 12 \IW 5 5 7 8 S 10 II! 3 4 5 6 7 8 9« 7 8 9 10 II 12 13! 

i \: ;; p. IJ r~ U ;7 : 15 It 17 18 18 20 21! 15 U 17 '3 15 20 2! ■! 12 33 \i IS It 17 15! 10 H 12 13 U IS 16! 14 IS 16 17 18 IS 201 

i ?5 r9 20 21 22 23 24! 22 23 2i 25 25 27 2S ; 22 23 2£ 15 2i 27 » :S 2C 21 22 23 24 25! 17 13 } ! 20 21 22 23! 23 22 23 U 

It I-. 27 11 25 3^ 3! ! 25 30 3i ! 25 27 25 25 30 I 24 25 26 27 28 29 3d! 28 29 30 



26 27: 



! 24 25 26 
t SI 



JvU 1 
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rMSrfi 
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■J=«,t."&c 



ti 



• : r. T !i 



S! S 



T V T 



S R 



T V T F S! 



i rrrii 1 1 n ^ i 2 s> 1 2 3 4 $ 6 ?! 1 2 % 4 $* 

' .1 t 7 6 - 1C i"' 2 * 4 = % 1 V- i 7 5 5 )C 1112' i ? £ 7 5 9 15? S 9 10 » 12 12 H\ i 7 6 9 -0 1! 12! 
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16K ECB GRAPHICS 



by Tom Lehane 




HERE IS my entry to the 
graphics competition. 11 
is a picture 
colourful clown. 



of 



The Listing: 



09 GOT010 

3 SAVE'*206:3":END'2 

10 REM ********************** 
20 REM It CO CO CLOVfl 1987 * 
30 REM * * 
40 REM * BY TOM LEHANE * 
50 REM ********************** 
60 CLEAR300 

70 PM0DE3, 1:PCLS:SCREEJH,1 
80 ClRCLE<92,0<»,20,3»2,.9O l .62 
90 C1RCLE(132.60), 20,3,2, -90, .62 
100 CIRCLE(93,5OM0 1 3 1 2 ) .90,,«2 
110 C1RCIE<133,50>, 10, 3/2, .90, .6 

2 

120 CIRCLE<92,40>.20,2, .5, .54 

130 CIRCLE(92.45),2C,2, .5, .54 
140 CIRCLE<132,40>,20,2,.5,.54 
150 CIRCLE<132,45),20,2,.5,.54 
160 C1RCLE(112, 15). 65,4, .2, .1, .4 

2 

170 LINEt90 l 44)-<95,54>.PSET,BF 
180 LIHE(130,44)-(134.55),PSET,B 

F 

190 CIRCLE(112,10),65,4,.2, • 1, -4 

2 

200 * hot TOP PART 

210 CISCLE(U3,3),18,2,.20 

220 UNE(131,3)-U39,20),PSET 

230 LINE<92,3)-(85.20),PSET 

240 LIHE<166,16)-<1«6,20),PSET 

250 LiHE(5O,16>-(59 ( 20),PSET 

260 PAINT034,24),2,4 

270 U*rE<aft,14>-U32.10).PSET.BF 

280 ■ smile 

290 ClRCLECll2,35) t 57.4.2. .1..42 

300 CIRCLEC112 P 20>,58,4,2, .1, .42 

310 L1NEC1?0,92)-(150,95),PSET 

320 LINE(55,92)-(6G,95-),PSET 

330 PAIHT<60,96),4,4 

340 ' nose 

350 CIRCLE<113.113),20 

360 CIRCLE<120,108),5, 4,2, .75,-2 

5 

370 CIRCLE<115, IOBJ.5,4,2, .75, .2 
5 

380 LIHE<115,100)-U20,100),PSET 
390 LIFE(U5 < 116)-a20.116>,P£ET 
400 PAIHT(L04,103) ,4,4 



■^nifijfemn, 




frffitf^ 




C DC 
CLOUH 



410 ' hair r/h side 
420 LINE<155,47>-<166,36),PSET 
43C UBE(166,36)-a75,8i),PSET 
440 L1WE(175 I 81)-(154,75>,PSET 
450 LIHEU54,70>-(154,40), PSET 

46C PAiNTU60,48>,3,4 
470 ' hair 1/h side 
480 UNE<69,48)-<56,37>,PSET 
490 LlNE(56,37)-(49,82),PSET 
500 LINE(4Q,82)-(69,74),PSET 
510 LIHE<69,74>-C69,48) I PSET 
520 PAIHT<61 I 4d),3,4 
530 ' shirt 

540 UNE<50, 16b)-(110, 160) , PSBT 

550 LlNEai0,160)-<175,165),PSET 

560 LINE<175,165)-<192,192>,PSET 

570 LIKE<50,165)-<28 ( 192>.PSET 

580 * 1/h side of bow 

590 LIBE(96,159)-(47,142) I PSET 

600 UNE(47,142)-<47,186>,PSET 

610 LIHEt47,186>-(96 1 173),FSET 

620 ' r/h side of bow 

630 UNE(125, 160) (176, 143) , PSET 

640 LIHE(176.143>-U76,188>,FSET 
65D LrHE(176,188)- (124 , 173) . PSET 
66D ' centre of bow --circle-- 
670 CIRCLEU12, 168), 22,4, .65 
680 PAIHT<112.170),4,4 
690 ' paint bow 



700 FAlHTU59,157) t 3,4 
710 PAIBT(159,173) t 2,4 

720 PAIHT<62,155),2.4 

730 PAIST<64,171),3,4 

740 ' qpotp; nn shirt 

750 CTRCLEdOO, 185), 5, 3 

760 CIRCLE<80,L88),5,4 

770 CIRCLEC118, 188), 5, 2 

780 CIRCLEC128, 180), 5, 3 

790 CIRCLEC140, 188), 5,4 

800 CIRCLEC155, 189>,5,2 

810 CIRCLEC186.188),5,3 

820 CIRCLEC60, 188), 5, 2 

630 C1RCLEC44,185),5,4 

840 * letters for co ca clown 

850 C$="NRHU4ER2FBD4GML2BR4 M 

860 U="NU6R4BR3'* 

870 Ni="U5MUF4NU5DBR3" 

880 OJ="BRNR2HU4ER2FD4GBE4" 

890 V$="BUNU5FE2F2EHU5BR3BD" 

900 T*="BR2U6NL2R2BD6BR3 ,t 

910 ' change color for letters 

920 C0LOR3 

930 DRA.V"S8BH194,24*'4C*-»OS*CS+OS 

940 C0LQR4 

950 DPAV"BK185,44 , '+CS+L$»OS4VS + B 

i 

960 DRAV "S4BH240, 180"+T$ 

970 DRAW" BH246, 187" +U 

980 GOTO 980 

O 
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M^at, 



by Johanna Vagg 



GRAPHICS 



OUR 32K CoCo 1 is. ill., or 
overworked. More and more 
the picture disappeared 
from the screen. The sound stlli 
came through. I blamed our 
ageing telly. The colours were 
different, and the picture 
Specially on ML games) 
clearer, when CoCo was teamed 
with the younger telly. 

Ve never had a CoCo 2, we've 
skipped to a CoCu 3. It's 
arrival caused quite a stir. 
Some of Katy's first words had 
been 'game' *nd 'play game' and 
'turn it on'. Sow THE word is 
'new game', fche sits up at the 
THREE. fingers poised, saying 
'Turn it on. Play new gane, ' 

As there was no sport on the 
telly at 4pra, my husband agreed 
to let the kids have the 'old 
computer* on HIS telly. 

■So I had to go from one to the 
other with the tape recorder. 
The kids wanted to try this, 
that and the other which hadn' t 
wot ted on 32K. At the same time 
they wanted Ui see what other 
Lb lugs looked like with the new 
tvllr. 



Katy screamed for attention; I 
felt like screaming too, wishing 
I'd brought MY new friend home 
while the kids were In schocl! . 

Having CoCo 3 Is like having a 
new telly . . . the ML games are 
clearer the colours brighter. . 
AND now the computer doesn 1 1 
interfere with the reception on 
the TV (the one on which my 
husband watches all the sport>. 

1 wonder whether ORE Is ill or 
Just malingering. It co-operates 
well with the younger telly. 

I'm having trouble typing this 
in to Telewr iter-64. 1 use the 
arrow ieys and the CLEAfi key 
quite a bit in this program, and 
I used then without too much 
thought. Now I'm searching. 

There was another problem with 
the Telewr Iter/CoCo 3 

combination. It was one of the 
first things we tried. When we 
pressed RESET, everything HUNG. 

So ONE continued as Telewriter 
CoCo. I had been pleased to see 
an extra 20K of Hyping space* , 




but it wasn' t much good to me if 
I couldn't press RESET. 

I realise that the program 
should operate okay without 
RESET, but pressing it, with a 
young child around, is 

inevitable. Out cane the manual. 
1 sacrifice the extra 20K for 
the feeling of security. 

First I CLOAD TELE64, then 
type 19 COTO100 before RUNning 
to CLOADM th« KL. 

Graham asked me several months 
ago to write about kids and 
computers in the home. For one 
reason and another, 1 haven't 
done this yet. The best thing 
will probably be to mention the 
kids as the opportunity arises 
while I'm writing about other 
things. They (my kids) had been 
looking forward to trying 
C0C0Z0RE from MAY 1986 RAINBOW. 

They like graphics adventures. 

They could have played it on our 
32K OHE, but without the 
pictures. Ve had run COCODRAV 
and seen the roams, even printed 
some of then out, but we didn't 
have the UFPER 32K to store them 
in. 

The kids wouldn't play it that 
way. When he tiled it on THREE, 
it was no better.. until I 

realised that because of an 10 

ERROR, I had pressed RESET. 

That garbled the pictures! As 
long as little fingers, and 
bigger ones, stay away froa 
RESET, we can play COCOZONE. 

Neither Telewriter nor 

COCOZONE makes much use of 
COLOUR. I wanted to see COLOUR. 
I looked through the manual (and 
felt sorry for anyone who still 
has to start from scratch). 

There was a funny command 
ATTR. Ve played with that. While 
in WIDTH 40 (or 80). this gave 
us a coloured screen with 
coloured typing. About time too 
... the Vic20 did that three and 
a half years a o, and a lot more 
predictably, as I remember. 

1 have a feeling that we'll 
search for the combination which 
is easiest on the eyes, and 
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LCTTC 



by T.J. Davies 16K ECB 



LOTTO VAS written for those whu want to play 
Saturday night lotto with your computer or 
_J-ust want some help In choosing ther lotto 
In-umbers. The program will print 6 numbers plus 
one supplementary. Alter the program in any way to 
suit yourself. 
Good luck! 



****T-J DAVIES***<C>*»******** 17 ° 

1 •$**#»****LOTTO*************** 0,C> 

2 GOTO 10 180 

3 SAVE" LOT: 2";. END 190 
10 CLS:SCREEN0,1 200 
20 FOR V=0 TO 7 STEP 2 21C 
30 FOR H=0 TO 63 STEP 2 220 
40 RESET <H, V) 5 
50 NEXT H,V 23C 
GO FOR V-0 TO 6: FOR H=G TO 7 240 
70 C=RND<8>:SET<H,V,C):NEXT H.V 230 
80 FOR H=8 TO 13:OBNDC8> 260 
90 SET (H, 6, C): NEXT 270 
100 FOR V=1T05:F0R H=16 TO 17 280 
110 C=RKD(8):SET(H, V,C>:NEXT H,V 290 
120 FOR H=l8T0 21: FOR V=0TO6 STE -. 300 
F6:ORND<8) 310 
130 SET <H,V,C): NEXT V,H 320 
140 FOR V=l T05:F0R H=-22T023 330 
100 C-RtfD<0>:3ETCH. V,C>. BEXT II, V 340 
160 FOR H=26T035:C=KND<B>:SET<H, 350 
0,0: NEXT 360 



FOR H=38TU47;C=KBD<ti):KKlUl t 
:NEKT 

FOR V=1T06:F0R H=42T043 
C=RND<8> : SET<H, V, C> rNEXTH, V 
FOR V=1T06:F0R H=30T031 
ORND<e):SET(H,V,C>;NEXT H.V 
FOR V=0TO6 STEP6:F0R H=52TQ5 

C=RND<83:SETCH, V,C>:HEXT H, V 

FOR V=1T05;F0R H=50T05l 

C=RnTH8">:SET<H, V,C>:NEXT H.V 

FOR V=1T05:F0R H=567057 

C=RND<83:SETCH,V,C^NEXT H.V 

FOR T=1T010:D=RND(100)*100 

SOUND D, 1:HEXT 

DIM T<40) 

DIM D(7> 

FOR X=l TO 40 

TCX)=X 

BEXT 

FOR X=1T07 

OBRKIO) 



370 IF T(C)-0 THEN 360 

330 D(X)=C 

390 T(C)=0 

400 NEXT 

410 PRIST «128,"THE NUMBERS ARE 

AS FOLIOVS: -" : SCREEW0, 1 

420 FDF X=l TO 6 

430 FOE V=1T0600:NEXT 

440 PRINT DCX):SCREEN0. 1 

450 FOP H=lTO7;L=RNDU00)U00 

4bU JiULNO L. 1: NbXI H 

470 NEXT 

480 FOP X=lTO 700: NEXT 

490 FRIHT M AND THE SUPPLEMENTARY 

NUMBER IS":SCREEN0, 1 

500 FOE Q=l TOvOQiNEXT 

510 FRISTDC7):SCREEN0,1 

520 SOUND 150,3 

530 FOP C=l TO 1500: NEXT 

540 FR!»T"PRESS <CLEAR> FOR NEV 

NUMBERS": PR INT* PRESS <E> FOR END 

":SCKEEH0,1 

550 PS=INKEY$:IF PS=CKR$U2)THEN 

sound 180, a 

560 IF P$=CHR$02) THEN RUH 
570 IF Pi=»E" THEM END 
580 FOP T=1T0200:SCREEN0,1:WEXT 
590 GOTO 550 



o 



stick with that for keying in 
programs, using other colours to 
highlight areas within such 

programs. 

Then I found PALETTE. I wasn't 
able to try much. The kids 
wouldn't let me near it. All of 
a sudden they were interested in 
the computer. 

I read about PALETTE and 
uttered a few naughty words. 
How could anyone possibly 

understand that? Maybe it would 
be batto-r if I could experiment 
instead of Juet reading. Today 
our THREE is six days old. Vhile 
the kids were In school and Katy 
was walking with her Dad, I 
experimented. It wasn't as 

difficult as it looked. I wrote 

a little program for you. My 

first program written 

specifically for the THREE. 

Richard <10) has decided to 
HDRAV. So Car he hasn't used 
rauch colour, but Is impressed 
with the possibilities. We'll 
be able to have any 16 (of 64) 
colours on a 320 by 192 pixel 
screen, 



We've looked at all- the 
colours - all 64 of them- Ve 
typed in a sample program from 
the manual. Ve tried to name the 
colours. The accent Is on the 
word TRIED, Ve discovered that 
we could change the colours on 
the PHODE3 screen. 

Ve changed the yellow in my 
SMUSF to white and also gave it 

a different background colour. 

"It really looks like a SMURF 
now, Mum." 

Qaite by accident I also found 
that we can pick which colours 
we want in the LO-RES screen. 
Lo-res to me is still block 
graphics. The inaaual insists on 
calling the PMODE screens, 
low-resolution screens. 

I was under the inpression 
that if we were using VIDTH 32, 
the new commands, eg ON BRK 
GOTO, wouldn't work. 1 was 
pleasantly surprised to find I 
was aistakeii, 

I'm looking forward to making 
snore discoveries and maybe even 
becoming a computer artist with 
the help of a PALETTE. 



GOTO 10 

1 'ttttttttt RAINBOW *********** 

**** JOHANNA VAGG *********** 
3 SAVE M 172:3":EHD'6 

10 REM HAINBOV BY Johanna Vagg 

30 fW BRK COT0270 

30 HSCREEN2 

40 PALETTE0.59 

50 HC0LOR6.0 

60 HPRINT<2,2),"Now we really ha 

ve a COLOR computer!" 

70 FORR=70 TO 140 STEP 10 

80 HCIRCLE(160,191),R,3,.75 
90 NEXT 

100 FOP T=l TO 3 

110 FOR PA=S TO 14 

120 READ C 

130 PALETTE PA.C 

140 BEXT 

150 DATA 32,38,54, 16,0,33,47 

160 P=8 

170 FOR Y=90 TO 140 STEP8 

lflO HPUNTC160, Y),P,3 

190 P=P+1 

200 BEXT 

210 HPRlNTQ6.22),"Any key" 

220 EXEC44539 

230 NEXTT 

240 DATA 37,34,54,16,9,5,61 

250 DATA 32,39,55,2,1,5.12 

260 RESTORE :GOT01 00 

270 PALETTE RGB: END 

o 
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HELP 



LETS WRITE A PROGRAM 



by Torn Lehane 



THtS IS THE third "Lets 
Vrite a Program" for the 
HHLF section of Softgold 

magazine. On-je again, we will 
write a small program and 
discuss the mociy functions used. 

First 1 mus-t cleai one thing 
before muving on to our program 
building. In the first "Lets 
Vrite a Program" there was a 
'yping error - it was really a t 
rap to 
•=** who waj awak'-. 

The ei rur concerns the CLEAR 
statement In line 10 of the 
REVERSE progrnn.page 24 and 25 
Bee 19fJ5 Is? lie. The program 
)\i\- line 10 as CLEAR 100 - it 
should read CLEAR 'jOO- The text 
ftl&u Mid CLEAR 100. 

Vhftn we switch an our CaCo the 
rnmpuft*! CLEAR"* 200 an -.tart up 
and i! w« type CLEAR 100 the 
oimputor wi 1 renove the CLEAR 20 
D 

and put. 100 b.v k so instead of 
200 BYTES you only have 100. 

This I? not enough string spac 

»; 

for lar g*- data :" lor age. 

fiy it for yourself, type 
PR 1ST HEM and enter , now type 
CLEAR 100 and fchtei , PRINT HEH. 
you now feftvft mure :oeraor y but not 
enough firing space for programs 
uiitig large amounts of string 
r t ci agr». 

Tim pr 11513m we will write In 
this utitlo i one thai lias 
ur'r;n 91 mind -sine? personal 
computers first made their 

sppesrajicfii 

I hav* only used the garr»- idea 
arid pingrflDinvd Hie computer to 
1'Liy the gflBM, 1 h is Uz to say 1 
have not '"opted another 
pi ogi am met ' ? work word for word 
«n«l i;al led it my own, to do sq 
[1= taboo and tho oiily person you 
.tie fooling is yourself. 

You an iisa routines developed 
l'v others but gives 'he 
pii.^raiiwet Hw crerjft and don't 

urp cnpyi ialil mutinies, In other 
w<u*H you dun* L have to 
re-design the wheel, as simple 

rauttna-s nt$ np*n to all, like 

FOR -'NEXT loop*., INKEYf routines 
ind so on. 



Anyway tets. wi ite our program. 
The program we will write is 
called THINK nnd is knnwn by 
other iiflmes as well, like 
REPEAT, MEMORY and so on. 

The computer prints a number 
to the screen and then wipes it 
from view. You are then prompted 
to repent the number - if you ge 
t 

It right another number is added 

to the last. This continues unti 

1 

you can't recall the string of 

numbers which in our program Is 

14 numerals long, 

We'll start by looking at 
standard routines that are often 
repeated many times in a 
program. If a routine Is used 
more than once In o program, 
plao« it in an aiw where the 
prcjgram executes the subroutine 
from a GOSUB statement then 
returns from your -subroutine to 
the next statement following tlie 
GOSUB. 

This can be at the beginning 
of our program or at the end. tn 
our THINK gaiie th» subroutines 
arp placed ju«L after the title 
screen, 

Qui tltl* screen has the 
random <Rfipi routine in lino SO. 
This was discussed in February's 
HELP and gives an unpredictable 
-tai t U «j rue st*me. 

The subroutines, aie spaced by 
REM statements for easy 
identification. 

Line 110 i:- a simple tine 
delay and the variable ' H* is 
assigned different values for 
shorter or longer time 

delays. This saves repeated 
FOIVNEXT loops In your program 
when used a number of times for 
delays, 

Lines 190 - 210 Is used 
through nut the program as a 
means to Wipfg the numbers from 
view, With sum of the 
subroutines covered we move on 
ro the main pai t of our progran. 

Line 250 Z*JUW(93: '2' is our 

vai iable that will be assigned 
different numbers throughout 
the duration oi oui game. 

The mineral is stored in G$ 



strings but before we can do 
this 'Z' needs to be changed to 

string. The basic word STRS< 

changes X V to a string. Line 32 



pulls out the space that STRS< 

adds when converting 'Z* to a 

string. 

This may sound confusing 
considering that all we did was 
change *Z' from a numeral to a 
string. Vhen STRSC ) converts 
numeric expression to a string 
it also adds a space in front of 
the string. 

For example if our converted 
numerals using STRSC ) to 
convert them were numbers 1 then 
2 and 3 they would be entered 
In a string as 1 2 3 with the 
added space an*l nut a& 123. 

Because we n^ed to compare the 
length of C,t for the games limit 
of 14 numbers and again for the 
tiioe delay we need them as 
normal numerals without the 
added space that STRSC ) addes 
when converting because the 
computer would compare the 
length of <H wi th fch* added 
space and numbers lltee l 2 3 
would be a string of six instead 
of the true count of three. 

You could call this a bug in 
basic. This bug will rarely 
trouble yoj in normal 

programming but its a point to 
consider if it ever gives you 
problems in a program. 

Line 3^0 puts the value of GS 
into ES for later use to compare 
it's length as the value of GJ 
Is changed each time it moves 
through to line 290. 

In line 380 I have converted ' 
Z* 

once again to a stt ing and put 
it into A* but. left it with the 

added epacc that is added by 

5TE$( > for easy reading on the 
text scieen. The number Is then 
pjlnted to the screen in line 
400 PRirai&2,«jft. 

Notice how the numbers are 
spaced by the bug in STR$ < >, In 
line 450 we compare the length 
of B», IF LEHCES) •' 8 THEN M=S00 
ELSE N=500. This is our variable 
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that is used in our time delay 
In line 100 and l* w»nd there by 
GOSUB 160. 

Line 490 pronpU the player to 
type the correct numerals and 
his/her answer is stored in Cfi. 
A check Is made in line 530 : IF 
VAKC£>-VAL<BS> : The basic word 
VAK chances CS and BS to 
numerals and if they equal each 
other then you are safe and the 
program returns to line 230 and 
continues to add nunbers until 
it reaches it's game limit oi 
14. 

The program could be dressed 
up with, better screen lay out 
and added sound. 

Veil that's our piogram, pull 
it apart and follow the FEN 
statements In the listing and 
comments in our text and things 
will becojce clearer. 

Don' t worry to much about the 
STR*< ) statement it's small bug 
will rarely trouble you. 



The Listing: 

GOT010 

3 SAVE"208:3":END'2 

10 REK * BY TOM LEHANE 

20 REM * FOR HELP PAGE SOFTGOLD 

30 REK * 

40 CLEAP500 

50. CLS:PRlJrm66, "MEMORY GAME -T 

HINK" 

60 PR!NT:PFINT"F0R HELP PAGE SOF 

TGOLD MAGAZINE" 

70 PRINT: PRIST TAB<7)"ANY KEY TO 

START" 
80 IF IHKEY*=" M THEH R=RHtKlO>:G 
OTO 80 
90 GOTO 230 
100 REM 

110 REM ***** ROUT1HE SECTION 
120 REM 

130 FOR P=l TO 32 

140 PRIFP* M ;:NEXT:RETURN 

150 REM 

160 FOR TL=1 TO M: BSXT 

170 RETURN 

180 REM 

190 FOR WP=160 TO 191 

200 FRlNT«VP,CHR4(2n5> ; 

210 NEXT: RETURN 

220 REM 

230 CLS: PRINT TAB(13>"THINK" 

240 PRINTS102. M REMEMBER MY RUMB 

ER" 

250 GOSUB 130 

260 Z=RND<9) 

270 REM ***** 

280 REK CONVERT Z TO A STRING 

290 G$=STRS<Z> 

300 REM ***** 

310 REM PULL OUT SPACE THAT STRS 

ADDS WHEN CONVERTING (Z> 
320 GS=PIGHT$<0$ ( 1) 
330 REM ***** 
340 REM PUT G$ INTC B* FOR LATER 

USE TO COMPARE LBflGTH 
350 Bl=M+<iS 




by Justin Lipton 



YOU MAY REMEXBER a 

article I wrote some time 
ago about sine waves. 
Here Is the original program. 

10 FMODE 4, 1: SCREEN 1, 1:PCLS 
:REM SET UP HIGH-RES SCREEN 
20 FOR A^O TO 256 
;REM H0R]Z0NTAL L0GA7 I QB ON 
SCREEN 
30 B-INT(SIN(A*6)*6)*100 
: REM FIND SINE VALUE OF A 
MULTIPLY BY ft AND M0VF IT 
DOWN 100 FIXELS 




360 REM ***** 

370 REM CONVERT Z ONCE AGAIN TO 
A STRING AND PUT INTO AS VI TH - 
ADDED SPACE FOR EASY READING 
380 AS=AS4STRS<Z> 
390 REM ***** 
400 PRlHT9162,ASj 
410 PKINT 
420 GOSUB 130 
430 REM ***** 
440 REM CHECK LENGTH OF B$ FOR - 

TINE DELAY 
4*50 IF LER(BS) < H THEN H=800 EL 
SB X=5Q0 
460 00SUB 160 
470 GOSUB 190 

133 PRINT0256,"TYF£ YOUR ANSWER 
AND FRESS ENTER" 
49D INPUTCS 
500 REM ***** 

S10 REK COHVERT STRING? TO A 
520 REM NUMBER AND COMFARE 
530 IF VAL<C*)=VALCAS> THEN FRIN 
T TAB(6) ,, correct":G0T0 560 
540 KEM ***** 
550 GOTO 590 

560 IF LEN<B*>=14 THEH FR1NT TAB 
(10 >" MASTER MIND": GOTO 630 
570 M=500: GOSUB L6fl 
5SO GOTO 230 

590 PRINT" SORRY YOUR ANSWER IS 
WRONG" 

6U0 PRINT TAB<4>"THE CORRECT ANS 
WER" 

610 PRINT TAB(4)"Io NOV DISFLAYE 
D.' _ 

620 PR me 152. At; 
630 FRINTS430," ANOTHER GAME (Y/ 

NJ"i 

640 MPUTZ2* 

650 IF ZZt="Y" THEN RUN 

600 CLS0 : F R I NTiHGO , " SOFTGOLD 19 

87 <TL> 



40 PSET(A,B,5) 

:REM FLOT THE POINTS 
100 NEXT A 
110 GOTO 110 

:REM STAY ON GRAPHICS SCREEN 

Since first writing this 
program 1 have discovered some 
other effects you may want to 
tr y. First try . . . 

GO LINEtA,B>-<12e,0),PSET 

Interesting Huh? Now try 
adding line 70 below for a 
picture that looks something 
like a clam . . • 

70 LINE(A,Bt20)-O2d,196).PSET 

Let's try something else. 
Delete line 60 and 70 and we'll 
try using the 'B' (box) function 
of the LINE command . • . 

60 UNE(A,B)-<A+9,B+9),PSET,B 

We now get large exaggerated 

thick curves. I wuuUei what 

would happen U we left the *B' 
out. 

60 LlNEU,B)-(At9,B+9) ( PSET 

We have now produced 

3-diroenslonal looking waves. 
Remember one of the best ways to 
loarn to program is to sit down 
and experiment with Coco's 
various commands. 
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16K Disk + optional printer 



Camping 



by Craig Shine 




IHAi/E A 16K ECB CoCo with Disk 
Driv* and pi inter. 1 have 
will. leu iiLiuy jjiugioina su far 

but tiis Is the first one using 
iuy pt liitur. 

Csap is- designed tu bu run 
with a disk drive and a PHP 105 
pri nter. 

I thought this program up when 
I found that a I lit would be 
handy to have when 1 was packing 



fcUfliinate output £o screen 

P0KE359.0 ejiffllnate^ all 
output to the BCCfcan. The cursor 
will move only ioi 'FRIsr #' 

coms-inds. 

To restore everything to 
nor no I, type POKE 309, 126. 

Kt»vln (>nwan 



my car to to on a trip or 
holiday, so I wrote this short 
program. 

Thy tHugran works this way; 
you enter the items in and store 
them onto the disk. You can also 
delete ai. item if you wish, then 

you --an either print out a 

report or list tJie items on the 
screen. 

"When you start up the program 
for the first time, you mu&t 
pi ess '(!' at the main menu. This 
wi 11 then take you into a set up 
menu, but follow the 

instructions. This will setup 
the data files. 

As well as set up the files, 
there i& also 'S' - this will 
allow you to save the data to 
disk. 



END' 10 

8# NARE - CCAKP1 ttit 
#tt Br CBAIG SHINE tit 
iftt SOMERVILLE VIC Utt 

PROGRAM ALLOWS YOU TO 
STORE DATA & ACCESS DATA 
OF CAW? t KG EQUIPMEHT 
00 ' KK UUHS ONLY OPERATION! UK 
90 ■ „ 

100 ' ## PRESS [S3 TO SAVE PR0GR 

AH TO DISK 

110 * t» PRESS lU3 TO SET UP DAT 

A i-'lLES 

120 CLS4:' START OF PR0GRAH 

130 ' 

M0 ■ 

150 Vk"RlFyo»;DRlVE0 

160 CLS3 

170 ' SCREEN DISPLAY DATA 

160 Q*="# CAHFING TRIP #" 

190 ai*" 



200 V$=" 



210 VS="####*#m0»###########«# 

220 ■ HAItT HEBU DISPLAY 

230 PR1NTVS; 

240 PRIXT®71,Q_S; 

250 PR I KT* 126, V$; 

260 ' t/n SWITCH FOR DIFFERENT ME 

NUS 

270 IFX-lTHEN3ao 

280 1FX=2THEB590 

290 IfX=3l'HEH1000 
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300 PRINT@195, M t U - ENTER CAMPi 

HG EyP/KI"; 

310 PRINT8259,"121 - VIEV EQP/MT 

TO TAKE"; 
320 PRIN'r«323,"[31 - DELETE CAMP 

IHG EQP/MT"; 

330 PRINn?416,V$; 

240 PBlVTttd7t H SELECT A NUMBER 

i50 AS^IHKEYS: IFAS="U"THEN1090 E 

LSE IFAS=" i"THEN X=1:G0T0 360 EL 

SE 1FAS="S"THBN SAVE"CA(LP" ; RUB E 

LSE IFA$-"2"THEN580 ELSE lFAS-"3 

■THEN X=3:GOT020 ELSE GOT0350 

.'(60 CLS4:COTO160 

370 ' #* ENTERING DATA TO BUFFER 

3B0 PRINT@482,"t ENTER ITEM TO T 

AfctE/ENTER >"b 

390 E$=IS 

<00 PRlNTt?227,"l ITEM ]";: PRINTS 

237,;:LIHE IHPUT"" ; IS: IF IS-""TH 

5M X=0;R=0;GQTO130 

410 CI.S4:PRIKT@169, ,, PLEASE VAIT" 

420 OPENED" .Jfl/'CAMP", 25 

430 R=0 

440 R-Rtl 

450 GETH.R 

460 INPUT#1,ES,F$,G$ 

470 IPE»- H,, THEH VRITE01 , 1$, D*. KS 

:PUT*1.R:RUN 

480 IFES-ISTHEN CLOSE* 1 :GQT05 10 

490 IFR-L0F(1)THEM CLOSE* 1: G0T05 

10:' COUNT TO DATA AT EWD OF FIL 

E 

500 GOTO440 

510 IKESalJTHEHPRirrmtQS; ;SGUN 

D200.5:PRIHT€482,"[ ";tS;" HAS B 

EEN ENTERED 1"; : FORF=lTO50G0: BEX 

TF:GOTO160:' CHECK FOR ITEM ALLR 

EADY BEEH BffTERED 

520 OPEN"D",*l."CAHP",25 

530 R=R+1 

540 VRITE*1. IS.DS.KS 

550 PUT# 1 , R 

560 CL0SE#1 

570 GDT020 

580 X=2;GQTO160 

590 • 

600 ' *# VEIV ITEMS STORED 

610 PRINT@227.ni) - VEIV EQP/HT 

TO TAKE"; 
620 PRIirT«291, M I21 - PRINT OUT 
F EQP/MT"; 

630 PKlNT*416,VS,;PRINTfM87," SE 
LECT A HUMBER " ; 

640 ASMNKEYS: IFAS=CHR£(13>THENX 
=0;GOT0160 ELSE IF&S="£"TUEN650 
ELSE IFAS="2 M THENQ=1:V=1:B=53:G0 
T0650 ELSE GOT0640; PEM # B^ COUH 
T FOR PAPER FEED 
650 CLS;PR1KT€0,VS; tPRIHW7i,Qlj 
:PR1NT<996,S4;: LPAS="1 w OR AS-" " 
THEN690: REM SWITCH FOR SCREEN" 
R PRINTER 

660 REM * CHECK TO SEE IF PRINTE 
R 0/K 

670 PRT=PEEK (65314): IF PRT= 1 OR 
PRT=3 OR PRT=5 OR PRT=7 OR PRT- 
9 OR PRT=11 THENPRtKT®482," VAKN 
ING!:FRtNTER NOT READY", ELSE PRl 
Umfl3," PLEASE VAITiPRINTING 1 
OW ";:GOTG6*i0 
680 GOIO670 
690 S=U2 



700 IFQ-1AND VMTHENPRirr#-2,CHH 
$<27> ,CHR$U4>," ";Q 

$;" "; V$;CHRS(27>;CHRS 

(90) ;CHR$(12> ;"######## ITEMS TO 
TAKE ON TRIP! *#######" \\ PRINT* 
-2, CKRS (27) ; CHRS (90) ; CHR$ (12) j V$ 

;CHR$ <27> ; CHRS (90); CHRS (12); 

710 V=0;A=A+1 

720 OPEN" D",#l. "CAMP", 25 

730 OC+1 

740 &=SUfi 

750 GET*1,C 

760 [MPUT*1,IS,D$,MS 

770 PRINTSS, IS; 

780 IFQMTHEM790 ELSE GOT0840: ■ 

SCREEN OR PRINT 

790 PRlNT#-2.CHR$(27>iCHRt(14); 

800 IFX=2THEKPRI*T*-2.CHR$(27>;C 

HRS(2>;CHftSU41>;" ";U; 

310 IFX=1THEMPRINT*~2,CHRS(27);C 

HRS(lb) ;CHKS(0);CHKS(230>;" 

"i IS; ;B=B-1: ' COUNT FOR PAPER FE 

ED 

820 IFX=21HE» X=0 

830 X=X+1 

840 IPC=LOF(DTHEN390 

850 IFS-432THEHCLOSE#l:G0TOB70 

860 GOTO730 

870 PR1BT344B, STRINGS (32,"-")j :P 

RINTffl482, M SPC/BAR TO CONT/ 

680 A$=INKEYS;1FAS=" "THENCLOSE* 
l;G0TO65Q ELSE GOTOflBO 
&90 SOUND200 , 5: PRINTG44B, STRINGS 
C32,"- ,, >; 

900 ' ** END OF PRINT SEQUENCE 
910 IF(MTHENPRLNTff-2,CHRU27>;C 
HRSU5) 

920 IFQslTHBH PRINT#-2,CHRS(27> j 
CHRS<54> 

930 lFg-lTHEBPRUT#-2,CHRSC27)iG 
HRSllb) 

940 lFQ=lTHENPRIKT#-2,»End of 11 
st;" 

950 lFQ--lTHENPRlNT#-2,CHRi<27);C 
HRS<90);CHRS(24); 
960 IFQ=1THENPRINT*-2,CKRS<15)"P 
lace tick on dotted line if item 
s o/k M ;CHRtC14>i 
970 IFQ-11HEB FORV-ITO B: PRINTS' 



-2,CHR$(27);CHRS<54): NEXTV 
930 PRIWT<S481," END OF LIST - SP 
C/BAR TC END"; :A$=1NKEYS: IFAS=" 
"THEN CLOSE*! ;Q^0:X=0:C*0: :GOTO 
160 ELSE GOTO980 
990 ■ *# DELETE ITERS FROM FILE 
1000 PR1BT<3483, "ENTER ITEM TO DE 
LETE/ ENTER"; 

1010 PRIHT<0227,"t ITEM ]";; PRINT 
©237 t ;;LINE INPUT"" ; IS: IF 1S="" 
THENRUB 

1020 QPEH"D",#l, f 'CAJtP , \25 
1030 R=H+1 
1040 GE1*1,R 
1050 1BFUT#1,XS 

1060 IFX6=UTHEN VRITE*1, "" ; PUT* 
l,R:CLOSE*l:F=0:GOTO20 
1070 IFR=LOFU)THENSOUND200,5:CL 
OSE*1:R-0;PRINT(0483, ,, ITEM NOT ON 
FILE TRY AGAIN" ;:FORD^lTO3000:H 
EXTD: GOTO20 
1080 G0TO1030 

1090 ' ## DATA FILES SET UP 
1100 CLS4:PRINT»71,QS; 
1110 PRINTS 62, "DATA FILE HAKE: I 
CAMPI"; 

1120 PRWT«22t>,"SIZE OF DATA FIL 
E:(25]"j 

1130 DSK=PEEK<49152): IF£SK=68THE 
S1140 ELSE PRINT®291,"DISK SYSTE 
H NOT READY"; ELSE : FORT=1T03000 
;NEXTT:RUN 

1140 PRIMTS482, "SPC/BAR TO CONT; 
ENTER TO END"; 

1150 AS-INKEYS: IFAS=CHRS(13)THEB 
RUN. 'END OF DATA FILE SETUP 
1160 IFftl=" "THEN11B0 ELSE COTOl 
150 

1170 ' 

1180 0PEM M D" , n/'CANP" , 25: CLOSE* 
1 

1190 KILL"CAMP/DAT" 
1200 OPEN"D".#l,"CAKP",25 
1210 VRITE»1.XS,XS,XS 
1220 PUT* 1,1 
1230 CLOSE* 1 
1240 KIIH 
1250 ' END OF SYSTEM 

O 
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Johanna Vagg 
32K ECB 
UTILITY 



IF VOU TAKE an interest ini 
graphics on your CaCo, audi 
you don' t have Graphicam or' 
CoCaNaXi yau will benefit Iron, 
the November 1986 Rainbow. This 

issue has a beaut little (yes, 

very short. but very sweet) 

program called ZOOM. 

Vith this program you can take 

any picture you already have; 

enlarge a section; reduce it; 

squeeze it; or stretch it. 

Then there is a Long program 

called COC.ODRAV, which you can 

use to create tbe original 

pictures*. I have not used 

Grapticoi* or CoCoMax, but I 
think COCODRAV might be 

considered their baby brother 
<=,Uter?) , 

A&other program in the saae 
ifisue of Rainbow Is the 

COCOSCAIFR which ia very handy 
too, however, COCODKAV has a 
magnify function which could be 
used in 1 ts place. 

Whether you have these 

programs or not, i would like to 
present ray own graphics 
manipulation program, which I 
will be using in conjunction 
wl Hi CDCOl'KAV and especially. 
gfJUK. 

I have called my program 
GRAPHIX. Vith this program, you 
can take a picture, turn it 
upside down, or on Its side, or 
on its other side (by turning it 
upside down before turning it on 
its side). If you cannot see 
any use for these functions, 
then yu»i have ne-v«r tried m^Ving 
greeting cards, or at least not 
what ray kids call "proper 

cards" . 

Take a piece of paper, fold it 
into a card.. then write and 
draw ou it. Now unfold It. See 
anything upside down? Yes, you 
could print something, then turn 
the uap^r upside dawn and print 

the other section, . but with 

GRAPHIX, ZOOM and a Screen Dump 
which prints a large picture, 
you <_an put everything you need 
for a card, an the one screen. 

There Is such a Screen Dump in 
Oi.tGber lyfib Kainbow. On page 
47, there is KLPRIRT. If you 
have tape. you will need to 



change t:ie first number in line 
260 to aH6. 



You 
fiist 

&H1E. 



should also change the 

number in line 940 to 

(far tape or disk) because 



as it is written, it reads 
whole screen, ie 256 pixels 
across, and if you have 480 
(likt; Ike TRP10O and DKP200) or 
960 Clike the DMP'.IO) 

addressable dot columns, and you 
try to divide those columns by 
256, you' 11 run into trouble- 
Tbe article says that the 
program will give an eight and a 
half inch wide printout. 

My pi inter, and as far as I 
know, quite a number of others, 
only pi irate eight inches wide. . 
too. . I get eight inches on one 
line and half an inch on the 
next! If you have a DHPUO, 
make the two changes I have 
mentioned, AND put your printer 
into ELONGATE, Elongate should 
not be used for the majority of 
Tandy pi inters as they have 60 
dot columns per inch and the 
DNF110 has 120. 

So when you use HLPRIHT, you 
lo*e the 16 pixels on the right 
of the picture. To make a card 
Ihen, restrict yourself to the 
area defined by 

LINECO,0)-(239,191),B. Place 

you picture upside down in the 
top left quarter, and your 
message, with or without hearts 
and/or flowers, right side up in 
the bat- urn right quarter. 

This way you will get a card 
which will fit into an ordinary 
enverlope. If you try to turn a 
message upside down, you wl 1 1 
need a mirror to read it. 
However reversing the screen 



will fix that. To write your 
message in the first place, you 
could use the hi-res letter set 
In the manual, or one of the 
other letter 3ets you have, or 
yau could use COCODRAV. 

Then with 200H, you can adjust 
tbe size and place it where you 
want it. . as long as your screen 
has a black background rather 
than a white one. MLPRINT also 
requires the black screen. If 
your picture or message is In 
tbe reverse colours, then just 
use my GRAPHIX to PHIX it! 

If you want to make a bigger 
card, put the upside down 
mcccago on th-e left of the 
screen, but not reaching down 
half way; then your picture can 
be taller. 

Just begin the dump some 

distance down tbe sheet of 

paper. This will leave room for 
the handwritten part of your 
greeting. Newsagents sell 

envelopes which are the r lght 
£.ise for an 'ordinary* sheet of 
printer paper folded into a 
card. There is another 

possibility,. putting the 

picture and greeting sideways on 
the paper. 

To turn a picture on its side, 
and still have it in the same 
proportions, I have limited the 
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where X is 
to 31. For the 
should add 
picture as a 



area to be 'ROTATED* to a 
square, 192*192 pixels on the 
left of the screen. If what you 
want to rotate, is not to the 
left, then you should OFFSET 
CLOADM your picture. 

Experiment with OFFSET 

loading. Try using the numbers 
iron 1 to 31 and see what 
happens. 

CLOADM"PlCTURE",X 
a number from 1 
new users, maybe I 
bow to save your 
machine Language program in the 
first place. RUN the BASIC 
program to DRAV your picture; 
then . . . 

CSAVEM"PICTURE" , 1536, 7679 
,1536. 

This Is to save to tape, a 

PH0DE4 picture. To load this 
back in, in the same position, 
just type CLOADM. If yau would 
like to see it loading in, use 
this little program: 

10 PKODE^SCREEni.liPCLS 
20 CLOADH 
30 GOTO30 



The Listing: 

G0TO20 

3 SAVE ,, 176M;3";EMD'8 



20 

22 



* m**GFAFHl EftM ***** 
■WJOHANNA VAGG****** 
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20 



30 



32 



40 



To load it 
different way 
OFFSETS. 



in a slightly 
experiment with 



24 'any key to continue used 
throughout 

PH0DE4.1 USED FOR REVERSE, 
INVERSE AND UPSIDE DQVH*W 
PMODE4.5 NECESSARY TO ROTATE 
ROTATE OHLY ROTATES A SQUARE 
IE <0,0)-(191,191) 
COPY ROTATED PIC TO PM0DE4, 1 
TO CSAVEM OR SAVEH 
TO CLOAD* OR CSAVEM, JUST 
BREAK ABB GO AGEAD. THEN RUN 
AGAIH. YOUR PIC VILL BE 
INTACT— WO PCLS USED ON RUN 
FOR MAXIMUM VALUE, THIS CAN 
BE COMBINED VITH ZOOM FROM 
THE MOVEMBER 198b RAINBOV 
100 PCLEASa;P-4:DIHKCl23o),A(10) 
, BUO> 

110 PMODEP: SCREEN1,1:FORT=1TQ100 
0:NEXT 

120 CLS2: PR I NTG228," MANIPULATE Y 
OUR GRAPHICS"; 

130 PRlNTS488,"BY JOHANNA VACG"; 
140 F0RT=1 TO 1000; NEXT 
100 CLS. PRIHT012, "options"; PRIST 
:PRINT"1 REVERSE (LEFT TO RIGHT) 
":PfiINT:PRINT"2 TURK IT UPSIDE D 
OVN":PRINT:PRINT"3 INVERSE THE C 
ULOURS": PRIST: PRINT" 4 ROTATE <TU 
KN OK ITS SIDE)": PRINT; FRINT"5 C 
OPY ROTATED PIC TO 1ST SCREEN" ; P 



SEEN 




RINT"6 CLEAR 2ND SCREEN" 
155 PBINT; PRINT"? VIEW PICTURE" 
160 INPUT I: OH I GOT0170. 180, 190, 
200,210,220,230 
165 IF Kl OR I>? THEN150 
170 PM0DEP:SCREEN1,1:F0R X=G1012 
7;GET(X,0)-(X,191>,A,G:GETC255-X 
,0)-(255-X, 191),B,G: PUT(X,0)-(X, 
191), B f PSET: PUT (255-X,0)-(255-X, 
191 ), A, PSET: HEXTX: SOUND200, 1 : EXE 
f.4453-9:GOTO150 

160 PMODEP, 1 : SCREEN1 , 1 : FORY=0TO9 
5:GET<0,Y>-(255,Y> ( A l G;GET(0,191 
-Y>-(255. 191-Y>,B,G:PUT<0, Y5-<25 
5 I Y),B,PSET:PUT(0 I 191-Y)-(255,10 
1-Y) , A, PSET: HEXTY:SOUND200, 1 EXE 
C44539:GOT0150 

190 PMODEP: SCREEN1, 1; GET<0, 0)- (2 
55 1 191> I K l O:PUT<0.0>-<255,i91>,K 
, NOT; SOIFHD200, 1: EXEC44539: GOT015 


200 FORY=0TO191: PMODEP, 1:GET<0,Y 
) - (255, O , B, G: PMODEP, 5; SCREEN1 , 1 
; PUT C 19L- Y,0)-(191-Y, 191 ),B. PSET 
: NEXT;SOUND200, 1 : EXEC44'539; G0TO1 
50 

210 PMODEP: SCREEN1. 1: F0RX=1T34:P 
C0PYX+4TOX: NEXT: S0UHD200, 1; EXEC4 
4539:GOTO150 

220 CLS-PRIHT©230,"BLACK OR VHIT 
E (0 OR 1) M : INPUTC: PMODEP, 5;SCRE 
EN1 , 1 : PCLSC: SOUND200. 1 : EXEC44539 
: GOTO150 

230 CLS: PRINT$230, "START PAGE (1 
OR 5)": 1NPUTA:PM0DEP,A:SCREEN1, 
1 : SUUMD200. I : EXEC44539 ; GOTO150 

o 



GOLDLINK 

YET? 



You can only access GOLDLINK on VIATEL 
if you have a videotex terminal program 
and a modem capable of operating at 1200/75 baud. 

Now Goldsoft presents two great specials! 

1 CoCo Owners: Modem, CoCotex Software 

and cable $289.00 

2 TANDY 10O0 or IBM PC Owners: Modem, VTex 

Software and cable $399.00 

GOLDSOFT 
PO BOX 1742 
SOUTHPORT QLD 4215 
(075) 51-0577 
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COME 



TO 



at 




undee 




Conf '87 this year is to be 
held at the Uniting Church's 
caapsite in Bundeena I5V. 

This Is a particularly pretty 
area of Sydney. situated on the 
northern tip of the Royal 
Rational Park, in Port Hacking. 

the water views are fabulous, 
and the bushwalks are anoungst 
the best In Australia. 

lot that you'll have anytime 
during conference fcr these 
things, because as usual, the 
conference will be Jan packed 
With all sorts of things to see 
and do! 

The big news this year will 
obviously be the growing use of 
OS-9 Level 2 on the CoCo 3'e; 
and Conf '07 will be the 
definitive place to see this 
excellent system. 

By that tine initial users 
will have had time to sort the 
system out and create some 
really interesting stuff. 

But it is not Just OS-9 that 
is of interest this year. 
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Vlth the release of the new 
T1000 EX and SX, interest in 
those machines h«* never been 
higher. Ve'Ll have a number of 
these computers at the 

conference, as well as their big 
brothers. the T3000 series, 
which we'll be putting through 
their paces. 

We've bad continuing interest 
in some of the more diverse 
subjects covered in the nognzine 
at past conferences, so osain 
this year we'll have tutoriala 
on hardware nods and on Forth. 

There'll be Basle Basic and 
Advanced Basic courses, and an 
Assembly Language tutorial a\s 
well. 

Other computers will be 
dlecucwd. principally the 68000 
series of computers, and of 
course, we'll be showing 

Goldlink 642 on Viatel - and 
Videotex in general. 

Conference is a place to meet 
old friends, to meet the people 
behind tie names in tie 
magazine, to learn a lot of new 



Information, to see the latest 
Tandy equipment. 

Ve hope you'll cone. Va're 
sure you'll be glad you did. But 
please hurry your booking, 
because accommodation (which Is 
not obligatory) and places at 
the conference, are both limited 
by the size of the centre. 

The cost la increased over 
previous years due entirely to 
the fact that we are doing it in 
Sydney which Ik a goad deal more 
expensive than the Gold Coastl 

On the other hand, aany of 
you will save by not having the 
additional travelling expenses 
associated with getting to the 
Gold Coast. 

Ve aia to make the conferenca 
a family affair, and the 
location is a good one for 
people with fanllies who nr« 
less interested in eoaputere, 
but who would still lika to b* 
with dad or arum for the weekend. 
The family can take a ferry 
trip, go for bueb walks, or Just 
laze on the beach, whilst you do 
your thing at the conference. 




ONF 




na 



N.S.W. 
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Rates 
Accommodated (1) $87.00 

Family of 2, + S68.00 = $155.00 
Additional family members $52.00 ea 
Includes supper Friday evening; breakfast 
lunch and dinner on Saturday and breakfast 
and lunch on Sunday plus all accommodation. 

Non Accommodated Rates 

One day Two Days 

One person $40.00 $58.00 

Sat Evening Meil $12-00 $12.00 



$52.00 



$70.00 



Additional family $31.60 $45.50 /person 

Includes morning / afternoon tea and lunch, 

$20.00 deposit required with booking; 

final payment to be made by 15th July 1987. 



LOCATION :- 

Uniting Church's campsite 
Bundeena NSW 

DATE:- 8th k 0th August, 1087 



REGISTER NOW! t 

We can only accept a limited number of 
people this year. DON'T MISS OUT! on a 
top weekend of FUN, FRIENDSHIP and 
LEARNING. 



Name: 

Address: 

Phone: 

No. People attending: 



SPEAK UP! :- Now is your chance to 
suggest your ideas lor any tutorials we 
ma/ not have mentioned, (participants 
only). 

Tutorials likely to attend: 



Please find enclosed: 

chq/money order/bankcard/visa/maslercard 

Card No, 

Signature: 
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32K ECB 
EDUCATION 




A Beginners' Adventure Game 



TREASURE HUNT WAS 

originally written for 
use at school os a 
beglnnprp;' adventuio program. 
It has proven very popular with 
children between 7 and 10 years 
old. Its Intended audience. 

The program will work on any 
model Colour Computer, Including 
those with 16K standard Colour 
Basic. Extended Basic :s not 
required. Because of this, the 
screen displays are In the 
low-res text mode only. 

The object of the game is to 
explore a series of caverns 
Inside Magic Mountain in order 
to lacate a treasure chest. 
Once the treasure is found, the 
game is over. 

Movement through the caves is 
by traditonal Worth, South, Bast 
and Vest. Typing the first 
letter then pressing Enter is 
sufficient. 

The game maps fairly well, 
except In a few areas made 
deliberately confusing. Hast 

children tend to memorize the 
way through rather than drawing 

a nap. 

A number of strange and 
lntoroGting problems neenr nn 
the way. 

Theie Is a telepart chamber 
that can only be operated if you 
have found the cade. 

You can also find a sword that 
Is needed when you front up to 
the dragon. 

The treasure itself is locked 
in a chest and you will have to 
find the combination that opens 
It. <The teleport code and 
conbinatlon are generated 

randomly and are not the same in 
every game. > 

EDUCATIONAL USE 

Adoenture programs offer the 
teacher a wealth of classroom 



activities. 

Children should piny the game 
in small groups and can either 
keep a diary or make a map. 
Their travels can then be 
written up on a word processor 
or in some other manner and 
presented, perhaps in book torn. 

Some other activities children 
can do are: 

t Paint a large nap 
t Hake & poster showing things 
In the adventure -- the giant, 
Lightning Room, the Lake, the 
Dragon, the Muncher, others 

4 Develop stories to explain 
things like: 

Vho owns the treasure? How 
did It get there? 
Where to the various 
creatures come from? 
Where is the Wizard? 
Vho or what ic in the boat? 

What other types of caves 
could be inside Magic 
Mountain? 

THE PHOGHaM 

The program will operate On a 
16k standard Colour Basic Colour 
Computer. Extended Basic isn't 



by Dean. Hodgson 



needed. However, you will have 
to make some changes while 
keying in the listing. 

This listing is for a disk 
version. "Treasure Hunt" uees 

some machine code to achieve 
visual effects. The listing 

titled "BORKAKBR" is used to 
enter this code. For cassette 
operation the code is located at 
16173. For disk it is moved 
down to 3564. The file created 
by this program is called 
"BORDER", 1 

The BASIC program 6hould be 
recorded on tape first as it 
will load In the machine code 
after running. 

For tape use you must 

POKE25,6:HEV to clear out all 
graphics pages before CLOADing 
or the machine-code will clobber 
the program. For disk use there 
Is no nppd as the code resides 
in the first graphics page. 

Next, in the listing are 
several EXEC commands to call 
the machine code. The call 

addresses are, of course, 
different for both disk and 
tape. The listing shows the 
disk addresses. To change to 
tape make the following changes: 

L1WE DISK ADD. TAPE ADDRESS 

1420 3753 16343 

1730 3691 16280 

1920 3ti91 16280 

2112 3753 16342 

2140 3584 16173 

2920 3691 16280 

4050 3584 16173 

Be sure the number comes 
immediately after the EXEC 
statement. 

Also, tape users will have to 
change line 4000 in the program 
to read: 



4QQ0 CLEAR 

PEEK (16173)0198 

CL0ADH" BORDER" 



300,16173: IF 
THEH 
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The Listing: 



' TREASURE HUNT ADVENTURE BY DB 
AH HODGSON (01983 PTRABID SOFtV 
ARE 2 KARY ST..GAVLER EAST.SA 51 
18,085-22-5623 

1 GOTO4O00 

3 SAVE"136A:3":END 
10 IS*"" 

12 PX=PEEKU36>*256+?EEX(137):CX 
=PEBK (PX) : BD=RNEM7> +1 

13 BD=BD*16*112 

14 BK=1 
16 DL=0 

18 AS=IIXEY»: IFASO"'THENPOKEPX. 
CX:G0T022 

19 IF MH*1 THEN EXEC3691 

20 DL=DL+l:lFDL>3TKEirPOKEPX 1 VAL< 
HID* <"03101205" , BK. 2> HBD: ELSE18 

21 BK=BK+2: IFBK>7TKEN14ELSE16 

22 IPA«=CHR*<B)AHDLE»<I»)>OTHEFP 
X=PX-1:IS=LEFT$(U,LENCI4>-1>:PR 
I ST AS; ;GOT016 

24 1FA$=CHRSU3>ANDLEHUS)>0THEN 
NS=LEFT*US, 1>: RETURN 
26 JFASC" "OR h&VZ" THEHSOUHD5, 
1 : GOT012 

28 l$=mA»;PRISTA*;:SaUID220, 1: 
IF PX=208+1024 THENKETURN 

29 GQTQ12 

60 FORI=352T0448STEP32: PRIHTSI," 

":HEXT: RETURN 
70 FORI = 0TO TD: NEXT; RETURN 

75 F0Rl=A TO B;SETU, Y, C):HEXT;R 
ETURN 

76 F0RI=A TO BiSETCX, I,C>! NEXT: R 
ETURN 

80 KS= m, :FORl=lTO LX:MS=X$+SS:NE 

XT: RETURN" 

00 F0RI=1T0LX:PRINTX*;:NEXT:RETU 

RS 

95 F0RI=P1 TO P2 STEP32: PRINTS, 

HS;: NEXT: RETURN 

100 CLS3:GOSUB60:LX=4:KS=CHRS<12 

8>:PR1NT«141,;:GOSUB90 

110 LX=10;PRINT«17G,;:GOSUB90:LX 

=14:PRIfiT020G ( ; : GOSVB9Q: LX=18: PR 

1NTG230. ; :GOSUB90: LX=2Q; PRIBTG26 

1, i ;<3O5UB90;PRINT€293, ; :GQSUB90; 

PRIBT«325,; :G0SUB90 

120 PRINT*352 ( "Y0U ARB OUTSIDE T 

HE ENTRANCE TO THE CAVE." 

125 PRIBT M DO YOU VAFT TO HOVE BO 

RTH OR SOUTH? "; :GOSUB10 

130 IF KS="N" THEK30O ELSE IF HS 

= M S" THEN20O ELSEGOSUB60:GOT0120 

200 CLS0:X=1 

210 F0RI=U2T0267STEP31:PR1HT<SI, 

; : FORJ= 1T0X i PR I NT" " ; : KEXTJ j X=X+ 

2:NEXTI:PRISTO304," "; 

220 PRIBTS352,"Y0U ARE LOST IN T 

HE FOREST." 

230 PR I BT" TRY NORTH, EAST, SOUTH 

OR VEST. ";:GOSUB10: PRINT 
240 IF HS="E" THEB1C0 ELSE200 
300 CLS8: PRINTS 32, "YOU ARE II A 
VIDE ORANGE CAVERN. THE FLOOR SLO 
PES UPVARDS. YOU CAN HEAR THE 
SOUBD OF DR1PPIMG WATER TO THE 
NORTH A5D THERE IS AN OPENING TO 

THE S0UTH, ,, :PRINT*P352 I [ 
310 PR1HT"D0 YOU VAKT TO GO NORT 
H OR SOUTH ? "; : GOSUB10 
320 IF MS="N" THEN5C0ELSEIF KS=" 
S" THEN100 
330 PRIST; GOTO 10 



400 CLSRND(7):X=0:Y=10 

410 ON RBD(3) GOTO420, 430, 440 

420 R=RND(4);IF X*R>63 THESR=63- 
X 

421 FORI=X TO X+R:SETU,Y,8):NEX 
T 

422 X=X+R:IF X<63 THEN410 

423 GOTO450 

430 R=RND(4):IF Y-R<0 THENR-Y 

431 FORI=Y TO Y-R STEP-liSETCX, I 
, 8 ) : NEXT : Y=Y-R: GOT0410 

440 R=RND(4):IF YtR>21 THENR=21- 
Y 

441 F0R1=Y TO Y+R;SET(X, ,,Q) I NEX 
T:Y=Y+R:GOTO410 

450 PRINT$34."YQU ARE IB A TVIST 

Y TUHHEL.";:PRIHT(?352,; 

460 PRIHP'DO YOU VAST TO GO NORT 

H OR SOUTH ? ";:GOSUB10: PRINT 

470 IF KS^'N" THEN700ELSHIF M$=" 

5" THEN300 

400 GOTO460 

500 CLS3:LX=192:HS=CHR4(255>:GOS 

u»o 

510 PRINT«236,CHRS(205);CHR8(207 
>;CHRt(207>;CHRS(206); 
520 PRINTe320,"Y0U ARE AT THE SO 
UTHBRN END OF ALARGE UNDERGROUSD 

LAKE. AN EHPTYBOAT FLOATS IN TH 
E HI DOLE OF THELAKE. OUT OF REAC 
H." 

525 S0UHD89, 4: SOUND89, 4 ; SOUND7B, 
4 : S0UND78 , 4 : SOUND89 , 4 : SOUND89 , 4 
530 PRlNT"DO YOU VANT TO MOVE EA 
ST OR VEST ? ";:GOSUB10;PRINT 
540 IF MS="E" THEN4O0 ELSEI FH$=" 
V THENQOO ELSE530 
600 CLSO; LX=4:S$=CHRS<255>: GOSUB 
80;PRINTS66 I H4;:PRIHTI?9<0,H$; 
602 MS=LEFTS(M$,2) 
605 P1=99:P2=291:G0SUB95:P1=123: 
P2=3l5:G0SUB95:Pl=238:P2=3O2:MS= 
M :G0SUB95:PRINT®133, : : LX=22 
: K$= CHRS < 163 ) : GOSUB90 
610 PR1HT©0."YOU ARE IB THE TELE 
PORT CHAMBER."; 

615 PR1MT<5271,CHRS(175>;CHRS(191 
>; 

620 G0SUB60:PRINTi*320,"EO YOU VA 
NT TO PRESS THE rED BUTTON OR 

THE bLUE BUTTOH?": PRINT' WH 

ICH BUTTON? ";:GOSUB10:FRIHT 
630 TS=MS:IF H$ = "R" OR H$="B" TH 
EN640 

635 GOSUB60:SOUHD1, 10:GOTO620 
640 LX=4:S$=CHR»(128):GCSUBeO:Pl 
=238 : P2=302: G0SUB95 : PRI NTG448, "E 
NTER TELEPORT CODE ;"j;GOSUB10 
650 IF I4=*TCS THER660 

652 PRINT; PRIHreorry, wrong co 

de." 

653 PR 1ST" DO YOU VABT TO GO VEST 
OR EAST? "jrGOSUBlO 

654 IF MS-"V THEH2600 ELSE IF M 
*="E" THEN500 

655 PRINT:GOT0653 
660 J=l 

67C F0RR>5TO253STEP4 : CL£ < J > : SOUN 
DK,1:J=J+1: IFJ>8THENJ=l 

680 CLSO:TD=190-K:GOSUB?0;NEXTK 
690 IF TS="R» THEN1300ELSE1800 

700 CLS0:C=7:A=9:B=ll:FCRX=29TO3 

4:GOSUB76:NEXT 

705 Y=9:C=2:A=23:B=28:G0SUB75:A= 

35;B=39:GOSUB75 

707 Y=14:A=27:B=34:COSUB75:Y=15: 

A=25: B=35: GOSUB75: Y=16: A=24: B=27 



: GOSUB75: A-34: B=38: GOSUB75 : 1=35: 
B=38: Y=17:GOSUB75: A=24: B=26:G0SU 
B7D : A^35 : B= 38 : GOSUB73 : A=24 : B=26: 
GOSUB75 , 

710 SET(23,8 ( 2>:SET(22,8,2>;SET< 
22, 7,2): SET (21, 7, 2): SET (21, 6,2) 

712 SET(39,9,2):SET(39,10,2):SET 
(40,10, 2): SET (40, 1 1, 2) : SET (40, 12 
.2) 

713 Y=20;C=8:A=19:B=29:GOSUB75:A 
=20:B=28:Y=21:GOSUB75; Y=20:4=37: 
B=44 ; G0SUB75: Y=21 : A=38 1 B=4 3; GOSH 
B75 

715 A=29iB=34;C=3:Y-12;G0SU375:Y 
=13:G0SUB75 

717 X=17:FORY=9T03STEP-1;SET(X,Y 
,6):X=X+1:NEXT 

718 X=39:FORYM4T011STEP-1:SET(X 
,Y.6>:X=X+1:NEXT 

719 C=4:Yit8:A=24:B=26:GOSUB75:Y 
^19:A=22:GOSUB75 

720 Y-17;A-39.D=41;GOSUB75.¥-10; 
GOSUB75 : A=40: Y= 19 : GOSUB75 

722 A=3:B=7;C=5:F0RX=29T035:GOSU 

B76:NEXT 

724 RESET(29,6>:RESET(29.7):RESE 

T(35,6) : RESET (35,7): RESET(34, 7): 

SET(31 ( 8,6):SET(32,8,6) 

726 RESET(30,4):RESET(34,4):RESE 

T<31,6> : RESET (32, 6> 

730 PRINK352, M Y0U ARE IN A DUST 

Y ROOM VITH A STATUE." 

735 J=3;S0UND89>J;S0UND176,J:S0U 

HD147,J:SOUND125,J:SOUND176,J:SO 

UND147, J : SOUND125, J : SOUND103. J : S 

OUHD185,J:SOUND165.J:SOUND133, J: 

S0UND89.6 

740 PRIHT*'D0 YOU VANT TO GO EAST 

OR VEST? n ;:GOSUB10 
750 IF K*="E" THEN800ELSEIF K$-=" 
V" THEHO00 
760 PRINT:GTO740 

800 CLS0:C=5:Y-6:A-4:B-13:GDSUB7 
5 

805 A=7:B=L9:C=5:X=4:GOSUB75:X=l 
3:GOSUB76:SET(ll,12,6) 
810 A=21:B=46:O4:¥=14:G0SUB75:A 
= 15:B=19:X=22:GOSUB76: X=45:G0SUB 
76; PRINT«73,"THE VIZARD'S LAB"; 
615 PRINT<5140,CHRt<142Ji;U=6:MS 
=CHR*(140);GOSUB90: PRI »ICKK»(141 
); : PRINT©172,CHRS(138J ; : LX=&: BS= 
CHR$(128):GOSUB90:PRINTCHRS(133> 

; : PRINTe203.CHR$(131)" : : "C 

HRSU31); 

818 TDS=CHR$(ASC(LEFT$(TC*,1>H3 
2):TDt-TD$+CHRKASC(TDt)-»L)KHRS 
<ASC(TD$>+2) 

820 M$=" teleport cod 

e , '4TDS+ H ":TD=20 

830 PRINT«320,"THE ONLY VAY OUT 

IS VEST. PRESS ENTER TO LE 

AVE." 

835 TD=100 

840 FORJ=110 LEN(M*J:PRIHT9173,H 

IDt(Mt, J,6>;:GOSUB70: IF IHKEYBO 

CHRS (13 >THENNEXT: GOTQ840 

850 GOTO90O 

900 CLS6;PRINT®39,"IT STINKS HER 

E." ; 

910 PFIHT@320,"YOU ARE IN A VERY 

SHELLY TUHNEL."; 
920 PE1NT"P0RTH OR SOUTH? ";;G0S 
UB10 

930 IF Ht^'H" THEN100O ELSEIFM= 
"S" TKEN27O0 
940 PRI!IT:G0TO920 
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1000 CLS0:Ht=CHF*<204>:FGRJ=lTQ3 
0:PRIRTSRHD(287) ( ; : LX=RNDC3) : GOS 

UB90 : BEXT I PR I NTS46 , " bones" ; 

1010 FRIBT©384."Y0U ARE IN THE C 
AVERH OF BONES." 

1011 J=5:SOURD125, J:SOUND133,J:S 
0URD133, J : SOUND133 , J : S0UND5 , J : TD 
= 130 : COSUB70 : SOUND 159 . J* 1 . 5 : SOUN 
D133.J 

1012 IF SV THEN1020 ELSEPRINTC26 

5,chkj<229>; iKHiHl"*32ft,CHRi(229) 

; ;PRIBT«295,CHR$(229); ;NS=CHR*(2 
39>:LX=U:GOSUB90 

1017 PRINT®352,"YOU HAVE JUST FO 
UND A SVORD!":SVrl 

1018 PRINT3416, ; 

1020 PR I NT" DO YOU VANT TO GO EAS 

T OR VEST? ";:COSUB10 

1030 IF MS="E" THEN2400 ELSE IF 

K*="V TREH280G 

1040 PRINT: GOT01020 

1100 CLSO; PRINTED, "hall"CHRS<12 

8)"orCHR$(128)"sfculls";:SS^CHR$ 

<207):LX=7,:G0SUB80 

1110 Pl=77:P2=173:GOSUB95:PRIHT® 

111,CHRS(128);:PRINT9113,CBR$<12 

8);:PR]NT«144,CHRS(12S>; 

1120 SJ=CHF$(201):LX=5!GOSUB80:J 

1S=H$ 

1130 Sft=CHRS(207)' J2*=CHR*{1Q7>+ 

SS+S$-SS+S1*CHRS(202):LX=5:GOSUB 

80:J2J=CHR$<197)4H14CHR*<202> 

1135 SS=CHFS(128):LX=7:G0SUB80 

1140 PPINTiS352, ,, YQU ARE IB THE H 
ALL OF SKULLS. " 

1141 FORK^l TO 8:PR1HT@204,M$;;P 
RIBT<?207,COS;:PRIHT$237,KS : PEIN 
TS238, Jl»; : PR1 NT<3269, J24; : 7D=250 
:GOSUB70:PRIBT$206,J1£; :PRINTG23 
7, J2S; : PR1NTS209, M$; : TD=lO0:GOSU 
B70:HEXTK 

1145 PF1HTG384,; 

1150 PRUT" DO YOU VABT TO GO EAS 

T OR VEST? ";:GOSUB10: PRINT 

1160 IF KS="E" THEH1600 ELSE IF 

m="V THEW1800 

1170 GOT01150 

1200 C1S0: SET (.22, 9. 5): SET (24, 9, 5 

> 

1210 3S=CHRK208):PRlNT«4,"you"S 

S"are"St"in"S£"a"S$"dark"St"pass 

age" | 

1220 FRINTG352,; 

1230 PHINT"DO YOU VANT TO 30 NOR 

TH OR SOUTH? "; :GOSUB10: PRINT 

1240 IF HS="N" THEN20O0 ELSE IF 

MS^'S" THEH1700 

1250 GOT01230 

1300 KEN 

1301 IF DS=2 THEB2300 

1310 CLSO: PRUrr$72,CHBS(129>"* M C 
HRSU39); : PR1HT$103, ; :H$=CHRi(14 
0):L>=3:GOSUB90: PRINT" '* ; :PRIBT« 
138," ";:PRINT$141,CHR$(131)" 

"j :PRINT<?170," "CHRSC131>" : 
:: :::: : " ; : PRINTG202," 

"; :PRINTe237, M "; : PRI KTG245, 
" *'; :LX=3:M*=CHRS(140):GOSUB90 

1315 X=50:A=6:B=14:GOSUB7C 

1316 IF DS=1 THENFRINT®320,;:GOT 
O2200 

1320 PR1NTS320,"YOU ARE IN THE D 
RAGOH'S DEN. HE IS ASLF.EP. SH 

HH VALK SOFTLY." 

1325 DSM 

1330 PRINT" DO YOU VANT TO TIPTOE 
EAST OR VEST ? "iiGQSUElO; IF 



MS^'E" THF.IM500 RUSK TP K*="V" T 

HEN120O ELSE1330 

1400 CLS2:U=16;S$=GHR$(191):CGS 

UB80:PRIMr<?l37,l!ID4(MS ( 2,14)t 

1410 Pl=168;P2=296:GOSUB95;PRIHT 

©207," "; 

1420 SJ=CKRSU59):PRIHT<?72,"the" 

SS"treasure"SS"room"; ; PRINTS353, 

"VHAT IS THE LXK'S COMB I HAT I OS? 

";:P0K£345,163:EXEC3753 

1425 I-4;SGUND1D9, I;SOUND133, Ilfl 

0UKD147, I: S0UHD159. 1 1 SOUND147 , I* 

3 

1430 PRIHT<?207,;:GOSUB10: IF I$=C 

PS THEM2100 

1440 PRINTS389, "sorry. THAT'S NO 

T IT."; 

1445 PRIBT<9416, ; 

1450 PR I NT "DO YOU VANT TO GO VES 

T OR EAST? " ; :GOSUB10: IF K*-"V 

*' THEN500 ELSE IF Mt="E" THEN150 



1460 FRINT:GOTO1450 

1500 CLS8:C=5; Y=12; A=16; B=45; G3S 

UB75:Y=13:GOSUB75 

1510 FOR Y=14 TO 21: FOR X=16 TD 
44 STEP4:SETa,Y,5):R£SET<X + l,Y> 
:NEXTX,Y:RESET(16,11):RESET<17, 1 
1) :RESET(44, U>:RESET(45, 11) 

1511 PRlNr©105,»th*"CHR*(255)"flta 
gIc"CHRS(255)"gate M ;:PRINT®352, ; 
1515 I=4:SOUND89, I:SQtBD89, I : SOU 
ND125, I:S0UND147,I:S0UND176, 1*3: 
SOUND159,I*3 

1520 PRINT"VHAT IS THE PASSVORD 

? ";:GOSUB10: PRINT 

1530 IF IS="OPEN SESAME" THEN156 



1540 PRI NT" NO. THAT ISN'T IT." 

1350 PRI NT"' DO YOU VABT TO GO EAS 

T OR VEST? "; : GOSUB10: PRINT: IF 

MS="E" THEB2900 ELSEIF MS="V" TH 

EN230Q ELSE154Q 

1500 FOR Y=21 TO 14 STEP- 1: FOP X 

=16 T044 STEP4:SET(X,Y,6);SETa+ 

1,Y,8):NEXTX,Y 

1565 PRINT'PRESS ENTER" 

1566 IF IHKEYSOCHRSU3) THES156 
6 

1570 GOTC1400 

1600 CLSO:PRIMT«a,"fee-fle-foe-f 

um" ; : PR I BT<? 162, "HOME" ; : PR I NT© 194 

, " SWEET" ; : PRIHTS226, "HOME" ; : PRIH 

TC-182. "GIANT'S"; :PRIBTG21 4, "CHAM 

BERS" ; : PCKE1036, 45: POKE1040, 45: P 

OKE1044.45 

1602 FOR J =2 TO 5:C=4: Y=J : A=3G: B 

=35: GOSUE75: NEXTJ : SET (29, 4, 4> :SE 

T (36, 4,4>i RESET (31, 3) : RESET (34, 3 

>:PRIHT®eO,"-";:SET<32,6,4>:SET( 

33,6,4) 

16-04 F0RJ=7T011;FORI=28TO37:SET( 

I , J , 4 > : NEXT 1 , J : PR I NT© 144 , " : " ; : PR 

[BT9176,": M ; 

1606 A=17:B=27;Y=7:G0SUB75:A=38: 

B=48:G0SUB75:SET(19,6,1):SET«6, 

6, 1) 

1608 F0RJ=12TO16:SET(29,J.6):SET 

(30,J,6):SET(35,J.6):SET<36.J,6) 

:HEXTJ:SET(28,16 1 6):SET<27,16,6) 

:SET(37, 16,6) : SET (38, 16,6) 

1610 PRIBT©320, M YOU ARE IB THE G 

IANTS CHAMBER!": PRI NT<?397."GET 

OUT !!"; 

1614 F0RJ=1T024:SET<31,3,4):SET< 

34, 3. 4 ) : TD=40 : G0SUB70: RESET (31, 3 

>:RESET(34.3):S0UBD1,1: NEXTJ: GOT 



01800 

1700 CLS1:PRIRT996 ( ; :FORK = 1T02:L 

X= 32 : HS=CHRS (255 ) : GOSUB9G : H*=CHR 

* (239) : GOSUB90 : M$=CHRS (191): GOSU 

B90: H*=CHR» ( 175 ) : GOSU B90: BEXT 

1710 PRIBT$41,"THE RAINBOV ROOK" 

1730 FORK=l TO 30;EXEC3691;TD=50 

:GOSUB70;NEXTK:PR1NT«352, ; 

1740 PRINT"NORTH OR SOUTH ? ";: 

GGSUB10; PRINT 

1750 IF KS= M B" THEN1900 ELSE IF 

M*="S" THEB13O0 ELSE1740 

1800 CLS5:S$=CHRS<207):PRIBT®42. 

"the"SS"ice M SS M caves" ; :PRINT©136 

."(IT'S COLD HERE.)";: PRI BT8352, 

1805 FORI=220 TO 89 STEP-16:S0UH 

DI,l:HEXT:SOUMD89.5 

1810 PR I RT" YOU CAB GO VEST OF EA 

Sr.":PRlMT"VHICH VAY ? ";:G0SUB1 

0: PRIM1 

1820 IF MJ="E" THEB1100 ELSE IF 

NS="V" THEB17O0 

1900 CLS0:PRltrr«69,"room"CHRSU2 

8> n of M [:PRIBT9135 ( ,, flaiDea"i 

1910 H*=CHRS(191):PRIHT«269,R*;; 

Pl=206: P2=302 : G0SUB95: Pl= 143 : P2= 

335:GOSUB95:Pl=176:P2-336:GOSUB9 

5:Pl = 113:P2=337:GOSUB95:Pl=146:P 

2=338: G0SUB95:Pl=179;P2-339; GOSU 

B95 

1912 Pl=148:P2=340:GOSUB95:Pl=18 

1:P2=341:GOSUB95:P1=182:P2=310:G 

0S1JB95: PI =2 15: P2*279; GOSUB95 : PRI 

HTe248,M$; 

1915 TD=60:PR1HT*352, ; 

1920 FOR L=0 TO 50: EXEC3691: GOSU 

B70:»EXTL 

1930 PRINT«352."VEST OR EAST ? " 

i :GOS"UB10; PRINT 

1940 IF KS="tf" THEN2400 ELSE IF 

H$="E" THBH1100 ELSE 1930 

2000 CLSl:SS=CHR£U91):LX=3:GOSll 

B80:RT£=CHRS(128)tCHRS(177)+M:M 

B$ s CHR$<12e)+CHRS<lQ0)4M*;IUl$=CH 

RS(128)4NS 

2010 PRINTG200, "magic word: open 
sesame"; :PRIHT«71, "THE MUSCHER' 
S CAVE. M ;PX-160 
2015 TD=600:GOSUB70 
2020 FOR I^PX TO PX+27:PSIHT<5I,M 
TS; :PRINT«I+32,KK$;CHR$(207>; : PR 
1NT(9I464,KBI; :S0UND90, Is PRIHTfilt 
36,CRR*(143>; :S0UBD30, 1: BEXT1 
2030 LX=5:Si=CHRSU28):GOSUB80:P 
RIBT®186,M*;:PRIHT«218,M*;:PRIHT 
(5250. MS; 

2035 PRIJTM352, ; 

2040 PRlHT"RORTH OR SOUTH? ";:GO 
SUB10: IF MS='*!i" THEN900 ELSE IF 
M*="S" THEN1200 ELSE 2040 
2100 DATA 108, HOORAY!, 139, YIPPEE 
!!!. 167, YOU'VE DONE ITMI.203.YQ 
U FOUND, 233.THE TREASURE! ,267, TE 
RRIFIC!, 301, HEATS, 329. A REAL PRO 
! !, 390, VANT TO TRY AGAIH? 
2105 C=0 
2110 C=C41 

2112 POKE34e f 121 + 16*C:CLSC-l:fcXE 
C3753 

2115 RESTORE 

2120 FORJ=1TOC:READ P.H*;PRINT«P 
,Kt;:NEXT 

2130 SOUND C*30,10;IFC<8 THEN2U 


2135 READ P, M$: PRIBTGP, MS; 
2140 EXEC3584 



30 



2150 HH=1:PKIST®431,;:GOSUB10 
2160 IF Jtt= M Y" THEHRtfR ELSE IF M 
»="S" THEH CLS:EBD 
2170 GOTQ2100 

2200 PR! Mr* YOU ARE II THH DRAGOI 
•S DBI.":PRI0T:DT=O:HT=Q 

2201 TD=400:GOSUB70:PRiITffl386,"0 
HI OH!":TD=600:GOSUB70 

2202 FOR J =385 TO 4 10: PRIST® J , " 
stomp";: PRIST® J +31," etonp" ; : SOU 
HD200. 1 : SOUBD69 , 1 : HEXTJ : PR I HT©4 1 
0. " ": PRIST 

2205 PRIRT M THE DRAG05 IS AVAXEM 
!" 

2210 OR RRD<3> GOTO2220, 2230, 224 


2220 PRIHT"THE DRAGOF PREPAIRS T 
ATTACK. ":G0TQ2250 
2230 PRIRr'THE DRAGOI SLASHES AT 
YOU VITH LOHG CLAWS." :GOTO2280 

2240 IF HT<2 THBH2210 

2241 IF RMK10X5 THEHPRIHT"THE 
PRAGQW JUMPS AT YOU!" ;GOT02280 

2242 PRIHT"THE DRAGOH BREATHES A 
CORE OF FIRE AT YOU. YOU ARE 
BURRT TO ACRISP1 YOU'RE DEAD. 

SHAKE ABOUTTHAT. TSK-T5K.":PRIIT 
"VAHT TO TRY AGAIR?" 

2243 GOSUB10:PRirr:lF *$="Y" THE 
BRUR ELSE IF M*="Jr THEHCLS: EHD 
ELSRPRIHT"AMSVER YES OR 10, PLHA 
SE . " : G0T02243 

2250 PR I HI" DO YOU VAST TO RUH OR 
FIGHT?" :GOSUB10:PRIHT: IF MS="R" 
THES2252 ELSE IF M="F" THEH225 

5 ELSE2250 

2252 IF RHDUOX4 THEHPRIHT"YOU 

ESCAPED! ! " : TD=800 : GOSUB70: GOT012 

00 ELSEPRIHT"HO GOOD. THH DRAGOI 
BLOCKS THE VAT OUT. ":GOTO2210 

2255 IF SV=0 THERPRIITT'BIIT YOU U 

AVE HO SWORD! " : GOTO2210 

2260 OH RHD<33 GOT02261.2262, 22S 
3 

2261 PR I HT" THE DRAGOH" DODGES YOU 
R SVORD.";G0TO2210 

2262 DT=DT+1: PRIHT'YOU STRIKE TH 
E DRAGOH !":G0T022 10 

2263 IF DT<2 THEH2260- 

2264 IF RKDC10K5 THEHPRIIT"YOU 
SLASH AT THE DRAGOH VITH YOUR 

SVORD BUT K)SSM ,1 :GOT02210 

2265 PR I WT" YOUR SVORD SLASHES TH 
B DRAGOH' S HECK ABD IT FALLS TO 
THE FLOOR DEAD. TERRIFIC JOB!" 
:DS=2:PRIKT:PR1RT 

2266 PRIHT"DC YOU VAITT TO GO EAS 
T OR WEST? ";:GOSUB10: IF K*="E" 



THEB1500 ELSE IF HS="V" THEH120 
ELSE2266 

2280 OH RBDC3) GOT0228 1,2282, 228 
3 

2281 PR I JIT" YOU JUMP ASIDE'":GOTO 
2250 

2282 HT-HT+1: PRIHT'YOU' RE HIT! 
BLOOD TRICKLES DOVHYOUR ARM." J GO 
TO22S0 

2283 HT=HTtl:PRIHT"THE DRAGOH KH 
OCKS YOU TO THE GROUND!" ; GOTO 
2250 

2300 CLS0:PRIHTfl320,"YOU ARE II 
THE DRAGOH'S DEH. HE'S GOHB 

HOW. ,, :PRIHT"DO YOU WAHT TO GO E 
AST OH WEST? » ; 

2310 GOSUB10:PRIHT:1F K$='W" THE 
H1200 ELSE IF H4 = "B" THBH1500 EL 
SEPRIIT"EAST OR VEST? ";:G0TO231 


2400 CLS4:H$=CHR$(191);PR]HT(S102 
, M the"K* M awiul"!tt-"reoV'llS" , cave"; : 
SOUHD43,6:SOUHD155,4 
2405 PRI5T«352, ; 

2410 PRIHT"HORTH OR SOUTH? ";:GO 
SUB10:IF 3t$="H" THEH2500 ELSE IF 

M$= M S" THEI700 ELSE2410 
2500 CLS7:PRIIT«74,"THE KUSIC CA 
VE. M ;:PRIirr*128,"PRESS THE KEYS 
TO MAKE SOUHDS. PRESS EFTER WHB 
H YOU ARE READY TO LEAVE." 
2510 AS=IHKEY*:IF A$="" THEN2510 

ELSE I=A5C(A*> 
2520 IF 1=13 THEH2530 
2525 SQUHDI*2,l;GOT0251Q 
2530 PRIHTG352,; 

2540 PRIHT'DO YOU WAHT TO GO EAS 
T OR WEST? ";:GOSUB10:IF M$="E" 

THEJ700 ELSE IF M$="W" THBI2800 

BLSfi2540 
2600 CLS3: PRIST® 102, "THE HAPPY B 
LUE CAVE.";:SOUHD155,6:SOUHD43,3 
:S0UKD43,3 
2610 PRIHT«352, ; 

2620 PRIHT'HORTH OR SOUTH? ";:GO 
SUB10: IF M*="H" THEH2800 ELSE IF 

K*="S" THEH2700 ELSE2620 
2700 CLS1:PRIHT«102,"THS XQSSY G 
REBH CAVESH.";:S0UHD1,15 
2710 PRIHTe384,; 

2720 PR I HT" EAST OR WEST? ";:GOSU 

BtO: IF K*="E" THEH400 ELSE IF Mft 

="W" THEH2600 ELSE2720 

2800 CLS0:FOR 1=1 TO 50:SET<RHDC 

63 ) , KMDC24 > , 2 ) ; SOUNDRND (255 ) , 1 : 1 

EXT I 

2810 PRIHT«384,"YOU ARE IK A CAV 

E FILLED WITH. FUHHY YELLOW ROC 



KS." 

2820 PRIKT9448.; 

2830 PRIjrTEAST OR WEST? "|:C0SU 

B30:IF M$="E" THEH10O0 ELSE IF X 

*="W" TH3H300 

2900 CLS!hH*^CHR*<175>;FORI=16TQ 

171 STEP31:PRIHT©I,MS; :HEXTI:LX= 

3:SS=MS:GOSUB80:PRIHT9203,MS;:PR 

IBTG174, *S; : IS=CHR* (175) : FOR 1 = 17 

7T0332STEP31: FRIHT9I , HS; :HBIT:PR 

IBT®357,"the lightning room"; 

2920 FORl=0TO100;EXEC3G91;HEXTI 

2930 PRirr«384,; 

2940 PRIHT'HORTH OR SOUTH? " j GO 

SUB10:PRIHT: IF M*="H" THEH17O0 B 

LSE IF Ki="S" THBH1800 ELSE2940 

4000 CLEAR30O: IFPEEK<3584)<> 198T 

HEHLO ADM" BORDER" 

4010 U0=53:U1=46:U2=63;U3=155 

4020 CLS:PR1IIT073, "treasure hunt 

";; PRISTS 136. "BY DEA5 H0DGSO1T;; 

POKE1105.32 

4030 PRIHT8296,"try to find tie" 

i :PRIHT«328, "hidden treasure"; ;P 

0KE1323, 32: POKE1326, 32: POKE1331, 

32:POKE1356,32 

4040 PRIHT«422, "PRESS enter TO S 

TART' ; 

4045 DS=0:COt="" 

4046 FORI=lTO2:J=RHD<10)-l:CO$=C 
04+R I CHtt (STft* < J > , 1 ) : HEXt 

4047 I=RHD(23)t64:TC*=CHR*(I)+CH 
RSU + 1HCHRSC1+2) 

4 050 EXEC3584 

4055 SOUHD89,2:SQUHD125,2:SOUHD1 

47, 2; S0UHD176, 4 : SOUHD159, 2: SOUHP 

176,8 

4059 PRIHT«422, "PRESS enter TO S 
TART" ; 

4060 IF IHKEY$OCHRt<13) THEH406 


4061 F=RHD<2);F2=RHD(2>: IF F2=F 
THEH4061 ELSE CP*=MID*(CO$, F, 1>+ 
*Ii)S(COJ, F2,L> 

4065 SOUIfD220,l 
4070 GOTO100 

59999 STOP 

60000 VERIFYOH:PEIHT"SAVIHG":SAV 
E M TRESHUHT.BAS":EHD 

61000 * TREASURE HUHT BY DEAI HO 
DGSOH 1983/84. COPYRIGHT (C) 19 
86 DEAR HODGSON 
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TRIVIA 



by Barry Sidebottom 
32K ECB + T.V. Trivia 



IF YOU LIKE TV shows 

Gilllgans Island and Happy 

Days and have a copy of 

"Trivia Fever" 'Australian CoCo, 

October 1986), then this is for 

you! 

Future 'TV shows' to appear in 

V.' i !_■.>■. i. (tiw muu til's are: 



Hogans Heros <Hugan) 

Homicide iHoraicide) 

H. A.S. H (Hash) 

Kr Ed (Hr Ed) 

The Sullivans (Sullivan). 



If jou want to use then all, 
simply change the following 
lines appropriately: 310, 420, 
480, 8C5, 1140, 1145, 1150. 
1390, 1391, 1395. 1396. 

As I said originally, I am 
adding new files all the t:ne 

<ui when 1 feel like it! >. 

Ed's note: Due to the nature 
of the files mentioned here, 
the&e files wLll appear on 
CoCoOi titled as "Gilligan" and 
"Happyday". 
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Tandu 

ELECTRONICS! 



The Ultimate In 
Lap-Top Computing! 



$ 



Reg 1399.00 



999 



Save 
$ 400 



• Features Six Built-in Programs 
Including MultiPlan 

• 24,000 Character Memory 



Tandy 200. Whether you're a student, jour- 
nalist or professional person, the only way to 
compute on the go and gel results is with the 
Tandy 200 portable computer For complex 
spreadsheet and caicu ations, we put 
MultiPlan software into the 200's permanent 
memory enabling it to give sales forecasts, 
profit and loss, budgeting, pricing and a lot 
mure. You can also write yaur own programs 
ir BASIC language. The Tandy 200 has a 
hgh-contrast flip-top LCD incorporating 240 
x 128 resolution on a 16-line 40 character 
text. Includes parallel printer RS232C inter- 
face. A unique offer! 2o mho 




SPtCIFtCATIONS Mlcio|»nfn»ot:HI»lt4lK:rtJ.CMOS.CIo<kSp««I:2 4 MHz Memory: 7ZK ROM, expandable to 
IIHK, Z4K RAH, expandable 1Q 72K in bl»n« ol 2<1K Keyboard: FuDstwd 56 (wy ■yfwwtll«r-»yl* with embedded data 
pad pluiSprnyiflmmrtblefuricilonkey* Display 40. 16Jlquldcty»laldUplav. uppc«ndIow«ca»*-ASCIl_chM«ci««. 
240 ■ 128 dol-motrU graphics, lupui oitpui. Parallel prlnlor mifirtaca. RS-232C tenal cornmuntcallont lnl*rtac* 
Cavwrifl laps- mt«l*ce. Standard barcode wad«r mi.-rtflc*' Dirnmalon>: 5 5 h 29 B » 21 6cm Weight: 2kp Power 
Supply: Operation* — Up to 16 hours on 4 "AA" aBiallnc baltetlea. and can use rtckel cadmium tfcharooable batteries with 
minor additional-cort modittralton. Opltonal AC/DC charger/ adapn™ avaflahle Memory— Interna) rechargeable nickel- 
cadmium bairwlM will relatn mernorv far up In 1 f> day» win power oH 



Versatile Tandy 200 
Software 




Data Manager. For all your data, iojsso 

Reg 79.95 Sale!59.95 

Project Scheduler. Segment your work. 

*. mi Reg 79.95 Sale! 59.95 

Text Power 200. Feature? advanced for- 
matting capabilities in word processing. 

26 mh! Reg 79.95 Sale! 59.95 

Time Minder. Appointment reminder. 

zb anas Reg 79.95. , . . , Sale! 59.95 

Romulus Chess. With 7 ecielons of play. 
.wnReg45.95 . . Sale! 39.95 
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Portable 8.89cm Floppy 
Disk Drive 



PortableDisk 
Storage For 
Your 100 




Save 
*200 



Reg 
399.95 



199 



95 



Now you can be in a position to access an extra 100K of data whenever your 
away from the office. Incjudes initialization software. Weighs only 793g. 
Requires 4 'AAA'batteries. »•:»» 



Student Comput 



puter I 
Desk I 




Color Computer 2 




TV Not 
ncluded 



Reg 299.95 



199 



95 



Save 
$ 100 



Reg 199.95 



This robust and decorative piece is a must for the student! 
Gives easy passage of paper from storage shelf to printer 
in a three tier configuration .zt.«0H 



Now you can both educate and entertain your family hour 
after hour by simply attaching Color Computer 2 . to your 
T.V. and plugging in a Program Pak. The 16K Extended 
will teach your children all about maths, science, reading 
and computer fundamentals. 26-3136 



Education Source 
Book 




14.95 



A thorough guide to locating and 
buying software. An offer that's ex- 
clusive to Goldsoft readers! Present 
this ad at a Tandy Store for discount 



Daisy Wheel Printer 




Save 
s 1500 



Reg 2499 

$999 



^ this ad at 
I 26W1 



KV 



Our model 510 professional word 
processing printer averages 43 cps 
and prints 10/12 cpl or relative 
spacing (switch select). Includes a 
courier 10 wheel, k i270 



l^mTw*t 



Single Diskettes 




Reg 6.95 



Fully Certified 
Ensuring Quality 



95 



All diskettes are unformatted, double 
density and soft sector. Exclusive 

price to GulUbuft leaders! Just take 

ad along to your local Tandy store. 

26-0305 £ 



Tf^riTT 



AUSTBAu* LIMITED 



Neatly 
350 Stores 
Australia- 
Wide 



WE SERVICE WHAT WE SELL! 



Available From 350 Stores 

Australiawide Including 

Tandy Computer Centres 

or Order On VIATEL *64261 4# 

independent Tandy Dealers -nay noi be participating in this ad or have every item advertised 
Prices may also vary at individual Dealer SlOfes 



CASSETTING 



ALONG 



your 
your 
most 



by CJrahame Pollock 



GETTING TO KHOV your 
cassette recorder is a 
very Important thing for 
you tc tin. 1 should say that 
getting to know how 
cassette relates to 

computer Is vital for 
beginner?.. 

The bAglniwar will often 

encounter some sort of 

difficulty with the system. This 
usually results from being 
understandably anxious to get 
£.uri»elhLng going between computer 
and cassette. 

Wake sure that you read all 
the manuals, even if you don't 
understand then the first tine 
Uir ough. 

I'll go through '-.orae of the 
problems that you might cone 
across when you start out. 

LEADERS 

These are short lengths of 
tape that come at the beginning 
ftrnl &nti nf mci« t CAC^otts tapes. 

Thn-r^ "leaders" don't have any 
nugnetlc material In then. This 
means that you can't record on 
them. When you record a piograra 
At the beginning of the tape, 
you must wait until the leader 
has gene by. 

If you take the following 
steps, ynu shouldn't go wrong:- 

l.type. CSAVE" FILENAME" but 
dun' t press the ENTER key. 

2-pre^s PLAY/RECOBD on the 
ea&3etfce. 

3. slowly count to 5 

4 . nr>w press the ENTER key. 

5. wait for the "OK" proropt to 
appear on the screen. This means 
that th'S program hao been 

recorded on the tope, n is a 

good id**a to CSAVE the program 
"Several tlree**. 

G,pie55 stop on the cassette 

and rewind. 

7. to verify that the program 
has be^n CSAVED properly, type 
SKIFF and press ENTER. Now play 



16K ECB/MiCo 



the tape, Your original program 
will still be in memory. If you 
try to verify using CLOAD, you 
may lose your program. 
3. wait fcr the "OK" prompt to 
appear on the screen. 




Leaders can a 
problem ceeasloha 1 
pick up a sma 1 
magnetic material 
cassette heads Thl 
an 10 ERROR for 
program following t 

If thlE happens 
let most of the 
through the casset 
begin to CLOAD. 



lso cause a 

ly If thay 

1 amount of 

from the 

s can lead zq 

the first 

he leader. 

, rewind and 

leader play 

te before you 



LQ_MR0!te 

These occur when the computer 
detects a problem loading in a 
program from tape. This type of 
error can occur through a 
var lety of causes and so there 
cue a validly uf different 

things that you can do to escape 
flora there. 

If you have a tape which Is 
giving you an 10 ERROR while 
CLOAlHng, then you could try the 
following steps: - 

1. Rewinc the tape and adjust 
the VOLUME on the cassette 
before loading again. Not all 
tapes will CLOAD in at the same 
volume. Most should load In at 
volume 5, but you may need to 
find the correct volume level 
anywhere between 3 and 10. 

The need to adjust your volume 
level usually occurs because yju 
are loading In a program that 
wdb recorded on someone else's 
cassette. 

Once you DO manage to load it 
In, you should CSAVE it using 
YOUR cassette. You shouldn't 
have any more trouble with It 
after bhfttJ 

Some tapes stick. FAST 
FORWARD all the way to the tape 



end and then REWIND. This will 

get the tape running freely. 

A really sticky tape may need 
to be jolted by tapping it onto 
the pain of your hand. Don't 
bash it onto the computer 
keyboard. The computer doesn't 
like it. 

3. Sometimes a program that 
you've been using will scramble 
the computer's memory so that It 
"thinks" that the tape contains 
an 10 ERROR- 

In this case, turn the 
computer OFF and bock ON before 
you try to CLOAD again. 

This la called a "COLD START" 
and will unscramble the 

computer's memory. It starts 
with a "clean slate" so that it 
will load the tape properly. 

4. Another sort of 10 ERROR can 
occur if you are trying to load 
a machine language program into 
a ©action of the nonary which io 
not available to your computer. 

Check to see If it is designed 
to go into your computer. 

Once each week t you should U6e 

a clean cotton bud to clean the 
heads and the roller on your 
cassette. 

To do this, press PLAY with 
the Kd open and no cassette. 
This may prevent many cassette 
problems and really save you a 
lot of difficulties later on. 

In same extreme cases, you may 
also need to realign the heads 
on the cassette. To do this, 
insert a tape with the lid still 
open. 

Pull the plugs out so you con 

hear the sound. Press PLAY and 
use a fine screwdriver to adjust 
the screw visible through the 
slot in the top of the cassette 
case. The heads are aligned when 
the sound is the loudest. 
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by Gary Furr MC-io 

Type in the listing as stated 
but CSAVE before RUKning It 
as you cannot get It bach 
after pressing the RESET button. 
RUS it. If there is an error in 
the DATA the program wlli say so, 
if not it will EXEC Itself. After 
the telephone mode press "A". 

Hoid any key down to return to 
H£IU. 

The Listing: SOUND D# 

LB REM Hi) mtll l-*t *tt» * ****t 
ir- FEM 1 -rJCitmiJ DtmiHSTRflTIOH * 
26 F'FH t 6RRY FURR * 

25 REM t AUGUST 19S5 * 

3d h'Ell ****:***^;*************** 
<Ki OflTft l«9*£7*76t »&9..6&i 2&- 198. 
1 28 ■ 2B$ , f-3 - . 2?.t. , fit . 12B# 231 *gh B 

56 DfiTfl 10B.39,3.i?6.67.93>206'0 

.0, 183,246^97, 1 SI* 1?-S, 183 .C7 . I Oft 

55 f-Rin 134-2? . 183,67 > 1&5 ■ l?i6*67 
j?3j1.3*I ■ I38*18?.67,100.1?4/?»1S3 



£9 I'Paft 67.185, £54- 255j22O>1?3>0 
-39.S ,57*S0e*Z55/255, 189,249,97 

05 Dfllfl tOC- 1'55 iEOTj I 3:9 -SIP -ST. 
£06 p .:- V.. , 253 .18?. 24ft . 9? j 126 , £7 1 93 
?© PAIR 57-6<-0/*'0,e^0/ 138,215' 
75,0^3,^4,6,0, 122,67^160- 5®/ 9 
75 t>flTfl 169,67-209, l&S. £?*)?&* 
1 83,67 1 100/ 232 , 68,56, » 93. 255, £53 
&0 I'hlR 25-3 ^ 68 • 56, 33,231,57, 252, 
C?, 175,5- 36*4, 200,217. 136.. 1 -253 
85 1*17 fi 67,175,7.132,1 ,104 r f7 j 
177. 35, 1 1 ,246 1 6? , 1 74, 2ftM 26> 247 
r-ti l-fllft 1?1 ,255,247,67 .174 . l&S. 
67, 177.57,54-55^79,222 iB,214,8 
<>*■ bflTFl 223, 11 • 136, 128, 1S3, 191- 
E55i 4Si23©i 1 j 8- Si 92. 38,251 .-214 
308 ORTft ?. 136. 64, 33,237, 43. 106, 
&> 58.226*79, l@3,19t .255,56.57 
105 DfiTfl 206,64, 40»255,66, 123, 
206.69,11, 1*9,231 .168, 206, 64 -77 
IIO DfiTH 255. 66. 126, 206-69. 32, 
169, 231 - 168, 18?, 69, 186 ,0, 0- ■ •• 
115 DftTB 0,0,0. 0,0.0-fl .6- 0.0, 206 
,64, 177.255.66. 128.206,69- 43, 189 
120 DPCm S31 -lte.2GC.64. 264,255. 
66.128.266.69.56. 189,231 . 168, 206 
123 pBTFI 64/23ej233j66#128,206i 
69 , 6 8 , 1 S9 , 2 3 1 , 1 68 . 206 ■ 65 . 12 , 255 
130 C'flTR 66,12^-206,69,79,189. 
231. 168,206,65, 138-255.66, 128 
135 DHTR 206.69.90,189.231,168. 
25-1 - 255 , 220 - 1 73 . 8 . 39. 249 . 129 . 65 
148 l>RTf1 39.15,129.66.39.32,129, 
67.39,59. 129.68.39.81. 126-67, 7ft 
145 DflTR 189,6V- 76 .286,64,203. 
S&S, ££. lift-SlOCf?', 4S. 1 S9.?'-M ■ I •'■* 
158 I'RTft 189 67,93.126,67,70.189 
, 67, 76 i 286 » 64 . ?03,25S> 66, ISSSj £fl6 
155 Dfllfl 69,58, 1 89 -231 , 168 ■ I 34 . 
255 183,69.- 0, 12:4., )22> 1 63*69*5; 



1 t.ti L»rl in IP?.'- 68 . 7''S • 1 26. 67 - 7fl . 

I i:9 . 67 • 7f. , 1 34 , 3 2-1 • 1 8 3 • 69 , 5 . 206 
16.5 I'll 10 64 . .''Ci::. •;;'.'... ...< . •;■;:. 2(if.. 

69,69. 1£?, 231 .16* I Bfi 6&,25& 

i re DRTfl i . •-• - •-■ ■ ■ ; " . i a? .&i .7' 6 ■ awe 

•64,203.255.66; I ?S# 306 -©9, 80, 189 
175 ['AIR 851*160 ' 89 . »*.V . I 74 .126, 
6"rS7B -204 .0.1 . i:"'. £7-245., 1&2,69 
1^8 DATA B..SS. 245,57 IS8 IT'S, 111 
,117.110, 100, 126. 1 0a i KM • 109,11 1 
t 35 DRTfl 110-11' 1 I f- • I I 4 • ft? - 1 1 6 . 
1 05, 1 11 , 110,0, 12&.1 &3. 97. 11 4, 1 2 1 

190 UttTR 128, 102 • 1 17. 114 . 1 1 4.0. 
1?8,97- 128, 136.1 Ol • 3C3. 181.112 
195 D»flTfl 104 i \ J 1 . 1 1 10 1 10 - 1 28 ■ 
98, 128. 122-97. 11 ?, 128. 100, 131 
tee BfiTfi 139, 110, fir. J 98.99, 1 23- 
1 22 , 9 7 . H 2 • 1 28 -117-11 7 . V . £' 1 26 
205 I'R'in 100 . |78 . J01 ill0,l&5-105 
• 3 10. 101.0,8 . 128 .18! i 110,31 ... 191 
''3 i'MK'i M4. 128,97 17:; - 10:: 101 , 

I I *". - 1 1 6 . 1 1 ■ 1 1 4 . . 1 >;.' . 1 28 . 1 83 i 07 
215 bill Ft 174-1 ?4 .215.1 \ .! . •-■ 1 ! 5 
134.79,133, 67, 176- 134, 0,133. €- 
75-pi DRTR 177. I S:.': . -.7 . 1 . 7. Ift?r,tt¥ i 
1&2, 1 34 -8 183 67, 176* I 54. . •' • 18? 
225 ORIR *", 18''- 134 1 6,1 '■': • ■ 1-! 
,57 

:■:■•(• F tiRl'aJ I 222T01781 I 

235 kt nil' u- C-tl 11! 7 1 

24© IFGO70343TrtEH2* 5 

745 Rf STORE 

258 r0RI-(77271i:tJ 7* 3 ) 

255 RERRF-F'OKEDif H(':l 

260 E 21 C ! 7777 

265 CI:-'"' [>Illl(yM0."hrrirl PRPOK", 

770 F-F'ihrei6-a. '• vrmp tothl " . &. 
77v mr-Tei9?." cowuxi 101*11 7* 

843" . 

2*8 GQ1OEB0 



FM ERRORS 

These usually occur If you 
give the wrong type of loading 
Instruction for the progran on 
tape. 

You should CLOAD a BASIC 
program and CLOADM a machine 
language program. If you CLOAD 
and get a FM ERROR then rewind 
and CLOADM. 

Bote that you should type RUH 
to get a BASIC progran to work 
and typ-? EXEC for a machine 
language program. 

ORGAN! SAT 1 OH 

Organisation of tapes Is very 
important. Each person has their 
own system. I can only suggest 
one to you. I have 3 types of 
tapes:- USER TAFES, PROGRAM 
TAPES and KASTEK TAPES. 

The USER TAPE is the one that 
I use when I'n writing a 
program. I store the program on 
the USER tape and continue to 
modify and re-store It on that 
tape. Each updated version of 
the program is stored on 
opposite sides of the tape. 

This rneatm that If you rake a 

tremendous "'boa boc" then you 
still have the previous version 
on the reverse side. I usually 
CSAVE 3 tiroes on this tape. 

A SQCtion of the program can 
be used to do this for you. At 
the beginning of every program 



you could put the following 
lines; - 

2 GOTO 10 

3 FOR SV=1T03:F0R T=l TO 3000: 
NEXT T:CSAVF , FILENAME":rRINT SV: 
BEXT SV:ERD 

10 REM PROGRAN START 

Vhen you want to CSAVE your 
program on your USER tape, all 
you have to do Is type RUN3 and 
press ENTER after you have 
ctartcd the caccotto record lug. 

Your program will 

automatically be CSAVED 3 times 
with a nice gap between CSAVEs. 

Hake sure that you don't try 
to record onto the leader. Wait 
for it to go through before you 
press EHTER. 

USER tapes tend to wear out 
fairly quickly, so if you start 
to see a few 10 ERRORs creeping 
in, then get a new USER tape 
quickly. 

Once a program is complete and 
is running correctly, then store 
it once on the MASTER tape and 
once on the PROGRAM tape, making 
sure to verify the CSAVE using 
SK1PF. 

That woy you dan' t lose your 

program if you get an error and 
you can CSAVE it again. 

Hy RASTER tapes are usually 
long ones (C60> so that they can 
hold a large number of prograns. 
One copy of every program is 
stored on these tapes. 



Ky PROGRAM tapes are usually 
short (ClO's are good) so that I 
can access programs on both 
sides very quickly, Each PROGRAM 
tape contains no more than 5 
programs on each side. 

PR0GRAK tapes should be 

numbered and the narees o( the 
prograns should bo wrlttei on 
each tape. A record of programs, 
starting counter numbers and 
descriptions should be Kept on a 
separate list, preferably In a 
craall took eet acld-e for the 
purpose. 

Make sure that you label your 
tap-?s clearly and keep your 
records straight. There's 

nothing worse than not being 
able to find the program you 
want because you can't reitBrober 
which tape to use. 

If yuu ARE having trouble 
with your cassette based system, 
then find someone who knows 
something about It and ASK. 
Don't Just sit back and hope 
that the problem goes away. If 
you're reaLly stuck, write down 
ALL the symptoms and send e& a 
letter at the address below. 
Don't forget to include a 

sta raped, self -oddrcGocd envelope 

SO that I can reply as soon as 
poss i bl e . 

Grahame POLLOCK, 
24 Kent St, 

Minto, 2566, 
Australia- 
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BOLLS 



MC-10 



This program was written 
Jussl for enjoyment. I 
was helped by my brother on 
how to program my Ideas It is 
meant for ayoung girl Just 

learning about computers. Just 
type in the names of your 
dolls and then have the computer 
list then back to you. 

The Listing DOLLS: 
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by Juliette L. Hill 
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Stop Fast Scrol 1 Ing 

Stop your ssreen from rolling 
over th* edge - see your listing 
scroll slowly up the screen ... 
with this shortle! 

1 FOR X-1000 TO 1010 

2 HEAD A: POKE X,A:MEXT 1 

3 POKE.383, 126: POKE 364 ,3: POKE 33 
5,532: FCKE422. 126: POKE423, 3: POKE 
424,232 

4 DATA 52, 16, 142,0. I, 189.167,211 
,53,10,57 

5 NEV 

Instructions: RUB the program, 
then POKE 1003, x for diffeieut 
speeds. 
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32K ECB 
by Ron McCarthy 



IN SLEUTH, YOU ARE the 
detective put in charge of a 
murder. It seems that a model 
has been murdered! 

There are three suspects; the 
artist, Pierre, who worked with 
the model. He says he was out 
having luuch when the model was 
murdered ... or so HE says. 

Then there was the model's 
fiance, George Sweet, who is 
very jealous and carries the 
profession of being a butcher 
(as in meat-worker) ... 

And to top it off, there was 

Carl Gordon, a bouncer/cleaner 

working for a nearby nightclub 

with fresh scratches on his 

face ... ! 

Now, you may ask yourself, who 
is the killer? 

THAT Is the aim of Sleuth! 



The Listing: 



fiOTQlO 

1 KEM***SLEUTH*»* 

2 REK***BY RON MAC CARTHY*** 

3 SAVE" 165: 3"; END 

5 REHtt*JA.NUARY 198?*** 
10 CLS 

15 PRINT (? 204,"SL3UTH" 
20 FOR X=l TO 500; NEXT X 
25 CLS 



30 PR1NT"ARE YOU READY 70 PLAY? 

(T/W3 

35 INPUT A* 

40 IF A4="" THEN 30 

45 IF AS="Y" THEN 55 

50 EF AS="N" THEN 25 

55 CLS 

60 PRINT" INSERT PLAYER'S NAME HE 

RE." 

65 INPUT U 
70 CLS 

75 PSIBP'YOU ARE DETECTIVE "NS:P 
RlHT"YOU HAVE BEEN CALLED TO THE 
'*:PR[NT M SCENE OF A MURDER." 
60 FOR X=l TO 2000; NEXT X 
85 CLS 

90 PR I NT" THE BODY OF A YOUNG WOK 
AN L1ES":PRINT"0N THE FLOOR OF V 
HAT IS AN":FRINT"ARTISrS STUDIO 
. A BEARDED HAST: PRUT" IS HERE. 
THE BODY, CLOTHED ONLY"; PRINT" IN 
A COTTON ROBE, IS COVrRED IIT:F 
R I ST" BLOOD. '• 
95 FOR X=l TO 5000: NEXT X 

100 CLS 

110 PRINT" YOUR CHOICE 0? ACTIONS 
IS:-": PRINT" (A) ARREST BEARDED 

MAN.": PRINT" tB> QUESTION BEARDED 
MAN." : PRINT" <C> CALL FOR SCIENT 

IFIC OFFICER": PRINT" <D: IHVESTIG 

ATE FURTHER" 

115 INPUT At 

120 IF A$="" THEN 110 

125 IF A£="A" THEN 141 

11Q IF A$="B" THEN 845 

135 IF A$="C" THEN 139 

140 IF AS="D" THEN 1105 

144 CLS 

145 PRINT" YOU CAN'T AFSEST Hi « Y 
ET. YOU": PR I NT" DON'T EVEN KNOV H 
IS MAKE. YOU": PR I NT" DOS 'T VAST A 

LAWSUIT ON YOUR HANDS." 
150 FOR X=l TO 2000: NEXT X 
155 CLS 
160 PRINP'YOUR CHOICE OF ACTIONS 

IS:-" :FRINT"<A> CALL SCIENTIFIC 

OFFICER": PRINT" <E> QUESTION BEA 
RDED MAN. ": PRINT" <C) INVESTIGATE 

FURTHER " 
165 IHFUT A$ 
170 IF A*="" THEN 160 



175 IF AS="A" THEN 190 
180 IF AS="B" THEN 845 
185 IF A$="C" THEN 1105 

189 CLS 

190 PRlNT"YOU CALL THE POLICE ST 
A1IUN.": PKl»l"YOU ARE TOLD THAT 
PQC. MURPHY": PRINT" VI LL LEAVE IK 
MEDIATELY." 

195 FOR X=l TO 2500: NEXT X 
200 CLS 
203 PRIBFYOUR CHOICE OF ACTIONS 

IS: -".PRINT" (A) WAIT. ": PRINT* <B 
) QUESTION BEARDED MAN.":PR1NT" < 
C) INVESTIGATE FURTHER." 
210 INPUT AS 
215 IF A$*"" THEN 205 
220 IF A*= M A" THEN 234 
225 IF A$="B" THEN 295 
230 IF AS="C" THEN 480 

234 CLS 

235 PRINT"¥QU lOTT HAVE A VERY 
GOOD": PRINT" ATTITUDE. YOU FAVE B 
KEN REMOVED" : PR I ST" FROM THIS CAS 
E." 

240 FfjH X=l TU 2UUU:NEXT X 
245 CLS 

250 PFINT © 204, "CAME OVER" 
255 FOR X=l TO 500: NEXT X 

260 CLS 

265 PR! NT" DO YOU WISH TO TBY AGA 

IN? <Y/N>" 

270 INPUT At 

275 IF A$=-" THEN 265 

280 IF A*="Y" THF.H 30 

285 IF A1-"N" THEN 290 

290 CLS: END 

295 CLS 

300 PRINT"YOU QUESTION THE BEARD 

ED MAS."; PR I NT" YOU LEARN; -'; PR1N 

T TAB<3>*'HIS NAME IS PIERRE BALK 

AlN.":FRiNT TAB(3)"THE DEAD VOMA 

N*S NAME VAS": PRINT TABOO "NARY 

BURNS.":FRINT TAB<3)"SHE VAS MOD 

ELL I NO FOR HIM" 

305 PRINT TAB<3)"SHE VAS ENGAGED 

TO GE0RGE":PBIHT TAB (3)"SVEET. 
HE IS A BUTCHER": PRINT TAE<3>"VH 
VORKS NEARBY. HE IS": PRINT TAB 

<3> "SUPPOSED TO BE VIOLENTLY**: PR 

INT TAB<3>"JEALOUS." 

310 FOR X=l TO 8000: NEXT X 
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315 CLS 

320 PRINT'PIERRE CLAIMS HE LEFT 
ABCJT":PRINT"MIDDAY TO EUY SOME 
LUNCH.": PRIHT"HE FOUND MARY DEAD 

WHEN HE":PRINT'RETURNED. HE SAW 

HO ONE IN THE":PRIHT"VICIHITY." 
325 FOR X-l TO 4000: NEXT X 
330 CLS 
335 PR I IT" YOUR CHOICE OF ACTIONS 

IS:-": PRINT" <A> CHECK PIERRE'S 
STORY. ":PRIHT'<B> LOOK FDR GEORG 
E SVEET': PRINT" fC> START A SEARC 
H." 

340 INPUT A* 
345 IF AS="" THEN 335 
350 IF A$="A" THEN 365 
355 IF AS="B" THEN 420 
360 JF AS="C" THEN 480 
365 PRIRT'YOU VISIT THE MILK BAR 

WHERE" :PRIIT"PIERBE CLAIMS TO B 
UY LUNCH. ":PRINT"THE LADIES BEHI 
ND THE COUNTER": PR I ST" K NOV HIM, 
BUT CANNOT SAY FOR" : PRINT"CERTAI 
N IF HE WAS THERE TODAY.' 
370 FOR X=l TO 5000: NEXT X 
375 CLS 
360 PR I NT" YOUR CHOICE OF ACTIONS 

IS; -": PRINT" <A> LOOK FOR GEORGE 

SVRET.":PRINT' CB> SEARCH STUDIO 

A PEA. " 
385 INPUT AS 
390 IF AS="" THEN 380 
395 IF AS="A" THEN 420 
400 IF AS="B" THEN 405 
40fi PRIRT-YOU RETURN TO THE STUD 
10 TO ,, :PRINT"BEGIN YOUR SEARCH." 
41U GOTO 500 
415 CLS 

4 SO PR I NT" YOU GO IN SEARCH OF CE 
ORCE":FR INT" SWEET. YOU FIND THE 
SHOP WHICH": PRINTEMPLOYS HIM LE 
SS THAN TEN N1NS. " : PR I NT' WALK FR 
<JM IHE STUDIO.": PRINT'YQIJ SEE GE 
ORGE PRIVATELY IN THE" : FSINTLUN 
CH ROOM." 

425 PRINT" YOU LEARN: -":PRlNT"GEO 
RGE HAD HIS LUNCH AEOUT THE":PRI 
NT'SAME TIKE PIERRE LEFT HE SAY 
S":rKINT"HE BOUGHT IT NEXT DOOR 
AND ATE": PRINT" IT HERE. HE HAS A 
CAR PARKED": PR INT" BEHIND THE SH 
OP. HE DID NOT USE": PR I BT" IT AT 
LUNCH TINE." 

430 FOR X=l TO 10000: NEXT X 
435 CLS 

440 FRINT'GEORGE'S BOSS SAYS HE 
THINKS" :PRI»T"GEORGE HAD LUNCH H 
ERE, BUT IS": PR I NT" NOT CERTAIN A 

5 HE WAS BUSY I H" : PR I NT" THE SHOP 
, THE LADIES NEXT DOOR" : PRIMT'SA 
Y GEORGE ORDERS LUNCH EA3LY":PRI 
Br'Sa DOES NOT HAVE TO VAIT. HE 1 * 
: PRINT'DID GET IT TODAY." 

445 FOR X=l TO 5000: NEXT X 

450 CLS 

455 PR I ST" YOUR CHOICE OF ACTIONS 

1S:-":PRINT"(A) SEARCH STUDIO A 
HD SURROUNDS": PRINT" (B) REST" 
4G0 INPUT Aft 
465 IF Aft-"" THEN 455 
470 IF AS="A" THEN 480 
475 IF A»= H B" THEN 234 
480 CLS 
485 PRJNT'YQVRE READY TO SEARCH 

FOF":FRINT"ANY CLUES YOU MIGHT 
FIID. WHERE" :FR I NT" DO YOU WISH T 



SEARCH'?"; PRINT" <M THE STUDIO. 

": PRINT" <B) THE OUTSIDE." 

490 INFUT AS 

49b IF A$="" THEN 485 

500 IF A*;"A" THEN 510 

505 IF A$="B" THEN 590 

510 CLS 

515 PRINT"YOU COMB THE STUDIO. Y 

OU FIND":PRINT"A HALF FINISHED L 

OVE LETTER": PR I NT" FROM PIERRE TO 
MARY. YOU FIND": PR I NT" NOTHING E 

LSE OF INTEREST."; PR I NT" YOUR CHO 

ICE OF ACTIONS IS: -": PRIHT" (A) S 

EARCH OUTSIDE"; PRINT" <B) ARREST 

PIERRE." 

520 INP'JT AS 

525 IF AS="" THEN 515 

530 IF Ai="A" THEN 590 

535 IF A4="B" THEN 540 

540 CLS 

545 PR 1ST" YOU CANNOT ARREST PIER 

RE. YOU'' : PR I NT" DO NOT HAVE ENOUG 

H EV I DEUCE." : PR I NT" YOU DON'T WAN 

T TO LOOK A FOOL.":PRINT"YOUR CH 

OICE OF ACTIONS IS: -" : PRINT" (A) 

REST": PRINT" <B) CONTINUE SEARCHI 

»G." 

550 INPUT AS 

555 IF A*="" THEN 545 

560 IF A$="A" THEN 570 

505 IF A4="B" THEN 590 

570 CLS 

575 FRIST" SERGEANT MOLLOY, YDUR 

BOSS,":PRlNT"FINDS YOU SLEEPING, 
HE VAKES":PRINT"YOU WITH A KICK 
TO THE RIBS.": PRINT" YOU HAVE BE 

EN REMOVED FROM THE":PRINT"CASE. 

580 FOR X-l TO 3000: NEXT X 

585 GOTO 245 

590 CLS 

595 PR I NT" YOU SEARCH OUTSIDE. WH 

ILE YOU":PRINT"ARE THERE, DOC RU 

RPHY, THE":pR[NT"SCIENTIFIC 3FFI 

CER ARRIVES. ":FRINT'YOU NOTICE T 

HE REAR DOOR OF THE": PRINT"D3WNS 

TAIRS NIGHT CLUB IS OPEN. ": PR I ITT 

'•YOU ENTER AND FIND A MAN." 

t500 FRINT'YOUR CHOICE OF ACTIONS 

IS:-": PRINT" (A) QUESTION THE MA' 

N.": PRINT' (B) CONTINUE TO SEARCH 
ii 

005 INPUT At 

010 JF k%~"" THEN 595 

615 IF A»="A" THEN 625 

G20 IF AS="B" THEN 735 

625 CLS 

O30 PRIIT'YOU QUESTION THE MAN. 

Y0U ,, ;rRIBT"DISCOVER:-":FRINrHIS 
NAME IS CARL GORDON. HE IS": PR] 

NT" THE CLEANER/BOUNCER OF THE":P 

RINT'CLUB. HE SAYS HE HAS SEEN N 

O":PRINT"0NE NEAR THE STUDIO TOD 

AY." 

035 PRUT" HE CLAIMS THE SCRATCHE 

S ON HIS*' -.PRINT" FACE OCCURRED LA 

ST NIGHT DURING": PR I NT" A FIGHT I 

W THE CLUB." 

640 FOR X=l TO 8000: NEXT X 

045 CLS 

(350 PRIIT'YOUR CHOICE OF ACTIONS 
IS:-": PRINT" <A> CHECK CARL'S ST 

ORY.":PRINT r <B> CONTINUE SEARCHI 

NG." 

655 INPUT AS 

660 IF AS-"" THEN 650 



665 IF AS*" A" THEN 675 

670 IF AS="B" THEN 735 

675 PR HIT" YOU CHECK WITH THE MAI 

AGER OF": PR INT" THE CLUB. HE SAYS 

THERE WAS A": PRINT'RUCKUS IN TH 
E CLUB LAST NIGHT,": PRINT" BUT DD 
ES HOT KNOV IF CARL WAS": PRINT'S 
CRATCHED DURING THE FIGHT." 
680 PRINT'YOUR CHOICE OF ACTIONS 

IS:-": PRINT" (A) CONTINUE SEARCH 
ING.";PRIN?"<B> ARREST CARL." 
685 INPUT AS 
690 IF Aft="" THEN 675 
695 IF AJ="A" THEN 735 
700 IF A$="B" THEN 705 
705 CLS 

710 PRINT'YOU CANNOT ARREST CAR- 
. YOU DO": PR I NT" NOT HAVE EFOUGH 
EVIDENCE TO": PR I NT" ARREST HIM FO 
R SPITTING OH THE" : PK1N V'FUUi PAT 
H.":PRINT"YOUR CHOICE OF ACTIONS 

IS:-": PRUT" (A) CONTINUE SEARCH 
ING.":PR1NT"<B) QUESTION PIERRE" 
715 INPUT AS 
730 IF AS="" THEN 710 
725 IF A*="A" THEN 735 
730 IF A'S-"B" THEN 295 
735 CLS 
740 PRIHT" YOU CONTINUE 'TO SEARCH 

BEHIND": PR! NT" THE BUILDING. YOU 

EVENTUALLY":PRINT"FIHD A BLOOD 
STA[NED KNIFE IN":PRINT"A BIN NE 
AR THE CLUB DOOR. IT IS": PRINT"* 

CARVING KH1FE OF THE TYPE":PRIN 
T'USED BY BUTCHERS. " 
745 FOR X=I TO 5000: NEXT X 
750 CLS 

755 PRINT"YOUR CHOICE OF ACTIONS 
IS:-":FRUT"<A) GIVE THE KNIFE 

TO DOC HURPHY": PRINT" <B) PUT IT 

BACK IN THE BIN." 

760 INPUT AS 

765 IF A$='" THEN 755 

770 IF AS*"A" THEN 815 

775 IF A$="B" THEN 780 

780 CLS 

785 PRIIT'YOU REALLY ARE GETTING 
CAKE-": PRIHT" LESS WITH POTENT I A 

L EVIDENCE.": PRINT' YOU HAVE BEEN 
REHOVED FROM THE": PRINT'CASE. " 

790 FOR X=l TO 2500 : NEX T X 

795 CLS 

800 PRUT « 204 P "GAHE OVER" 

605 FOR X=l TO 500: NEXT X 
610 US: GOTO 30 

815 PRINT" YOU GIVE DOC THE KNIFE 
AND HE": PRINT" ASKS YOU TO WAIT 
FOR A FEW":PRINT"MINUTES. HE W1L 
L THEN GIVE YOU": PR INT' HIS REPOB 
T. YOU WAIT." 

820 FOR X=l TO 5000: NEXT X 
825 CLS 

830 PRIHT" DOC TELLS YOU THAT MAB 
Y DIED": PRINT" FROM NUMEROUS KR1F 
E WOUNDS.":PRINT"SHE HAD BROKEN 
FINGER NAILS ON" : PR INT" HER RIGHT 

HAND? THE KNIFE YOU": PRINT'GAWE 
HIM IS THE MURDER VEAFON." 
835 FOR X=l TO 5000: NEXT X 
840 CLS; GOTO 1440 
845 CLS 

350 PRINT" YOU QUESTION THE BEARD 
ED HAN.": PRINT" YOU LEARN: -"; PRIK 
T TAB(3)"HIS NAME IS PIERRE BALK 
AIN.":PRIHT TABC3)"THE DEAD WOMA 
» IS MARY BURNS": PRINT TAB(3)"SH 
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E VAS MODELLING FOR HIH": FRIST T 
AB<3>"AND WAS ENGAGED TO A LOCAL 
•': PRINT TAB<3>"BUTCHER" 
855 PRINT TAB<3)"HB IS SUPPOSED 
TO BE": PRIHT TAB (3) "VIOLENTLY JE 
ALOUS.": PRINT TAB(3)"HIS HAKE IS 

GEORGE 5VEBT." 
860 FOR X=l TO 6000: NEXT X 
865 CLS 

870 PR1NT"PIERRE CLAIMS THAT HE 
VENT TO": PR INT" BUY SOKE LURCH. A 
NU VHEN HE" ; PR1NT"RETURNED. MARY 
VAS DEAD. HE": PR I NT" SAYS HE BUY 
S LUNCH AT A NEARBY": PRINT"MILK 
BAR. " 

875 PRIHT"YOUR CHOICE OF ACTIONS 
IS:-": PRINT" <A) CHECK PIERRE'S 
STORY.":PRINT"<B> LOOK FOR GEORG 
E SWEET.": PRINT" <C> SEARCH FOR C 
LUES." 

600 INPUT AS 
685 IF AS^"" THEN 870 
890 IF AS="A" THEN 905 
895 IF M="B" THEN 940 
900 IF AS="C" THEN 1105 
905 CLS 

910 PRIHT" YOU QUESTION THE LADIE 
S IN THE": PRINT" HI Lit BAR VHERE P 
1ERRE CLAIMS TO" : PRiNT"BUY LUNCH 
. NONE OF THEM CAN" ! PRINT"REHEMB 
ER-FOR SURE IF PIERRE HAS":PR£NT 
"BEEN IN TODAY." 

915 PRINT"YOUR CHOICE OF ACTIONS 
IS:-": PRIHT" (A) SEARCH AROUND T 
HE STUDIO. ": PRINT" <3) LOOK FOR G 
EORGE SVEET." 
920 INPUT AS 
925 IF AS*"" THEN 910 
930 IF A$="A" THEN 1105 
935 IK AS="B" THEN 940 
940 CLS 

945 PRINT"¥OU GO IN SEARCH OF TH 
E SHOP" : PRINT" VHERE GEORGE SVEET 
IS EMPLOYED.": PRINT" YOU FIND IT 
IS LESS THAN TEN" :PRIRT"MINUTES 
VALK FROM THE STUDIO. ": PRINT" YO 
U SEE GEORGE PRIVATELY IN THE":P 
RINT"LUNCH ROOH. YOU LEARN:-" 
WO PRIHT TAB<3>"HE VENT FOR LUH 
CH ABOUT THE":PRirr TAB(3>"SAME 
TIKE PIERRE CLAIMS": PRINT TAB<3) 
"TO HAVE HAD HIS. HE GETS": PR INT 
TAB<3>"H1S NEXT DCOR. HE HAS A" 
: PR INT TAB(3)"CAR, VHICH !S PARK 
ED BEHIND" -.PRIHT TAB<3>"THE SHOP 
955 FOR X-l TO 8000: NEXT X 
960 CLS 

965 PR I NT" HE SAYS HE HAD HIS LUN 
CH HERE-": PRINT" YOUR CHOICE OF A 

CTI0N5 IS:-":PRINT"(A) CHECK GEO 

RGE'S STORY.": PRINT" <B> RETURN T 

THE STUDIO." 

970 INPUT AS 

975 IF A*= I,H THEN 565 

980 IF AS=*'A" THEN 990 

985 IF AS="B" THEN 1105 

990 CLS 

995 PR INT" YOU QUEST ION THE LADIE 

S IN THE":PRMT"SHOP NEXT DOOR. 
GEORGE ORDERS" : PR 1 Br* HIS LUNCH I 
N THE MORNING AND" PR INT" DOES NO 
T HAVE TO VAIT AT LUNCH": PRINT'T 
IME. HE GOT HIS LURCH TODAY." 
1000 Pit I NT" GEORGE'S BOSS SAYS HE 
THINKS": PR I NT" GEORGE HAD LUNCH 
HERE, BUT" :PRINT"CAN'T BE SURE A 



S HE VAS BUSY":PRINT"VITH CUSTOM 
ERS. " 

1005 FOR X=l TO 8000: NEXT X 
1010 CLS 

1015 PRINT"YOUR CHOICE OF ACTION 
S IS:-":PRINT"(A) SEARCH FOR CLU 
ES AT STUDIO":PRINT"(B> ARREST G 
EOP.GE." 
1020 INPUT A* 
1025 IF AS="" THEN 1015 
1030 IF AS="A" THEM 1105 
1035 IF AS="B" THEN 1040 
1040 CLS 

1045 PRINT" YOU DON'T HAVE ENOUGH 
EVIDENCE. ":PRIHT"THE LAST THING 
YOU VANT IS A":PRINT"LAVSU1T OH 
YOUR HANDS." 
1050 PR INT" YOUR CHOICE DP ACTION 
S IS:-": PRINT" (A) SEARCH STUDIO 
AREA.": PRINT" (B) VAIT. 1 ' 
1055 INPUT A J 
1060 IF AS="" THEN 1045 
1065 IF A$="A" THEN 1105 
1070 IF AS="B" THEM 1075 
1075 PRINT"VHILE YOU VERE SLEEPI 
NG, YOUR":PRINT"BOSS, SERGEANT M 
OLLOY, VOKE YOU" : PRINF'VITH A KI 
CK IN THE RIBS. YOU" : PRINT"HAVE 
BEEN REMOVED FROM THE CASE" 
1080 FOR X=l TO 2500; NEXT X 
1085 CLS 

1090 PRINT * 204,"GAHE OVER" 
1095 FOR X=l TO 500: NEXT X 
1100 CLS: GOTO 30 
1105 CLS 

1110 PRINT"Y0U ARE READY TO SEAR 
CH FOR":PRIHT"CLUES AROUND THE S 
TUDI0.":PR1NT"VHERE DO YOU VISH 
TO SEARCH?": PR INT" <A> OUTSIDE.": 
PRINT" <B> INSIDE." 
1115 IHPUT At 
1120 IF AS="" THEN 1110 
1125 IF AS="A" THEN 1135 
1130 IF AS="B" THEN 1420 
1135 CLS 

1140 PRINr'YOU BEGIN TO SEARCH T 
HE REAR": PRINT" YARD OF THB BUILD 
IlfG. AS Y0U":PR1NT"C0KB THE AREA 
, YOU NOTICE THE":PRINT"OPEN REA 
R DOOR OF THE GROUND" : PRINT" FLOO 
R NIGHT CLUB." 

1146 PR! NT" YOUR CHOICE OF ACTION 
S IS:-": PRINT" (A) ENTER CLUB. ": P 
R1»T"(B) CONTINUE SEARCHING YARD 
« 

1150 INPUT A* 

1155 IF AS="" THEH 1140 

11S0 IF AS="A" THEN 1170 

1165 IF A.*="B" THEN 1355 

1170 CLS 

1175 PRINr'YOU ENTER THE CLUB. I 

NSIDE YOU": PR I NT' FIND A MAN. HE 

HAS SCRATCHES"; PR INT" ON HIS FACE 

.": PR I NT" YOUR CHOICE OF ACTIONS 

IS;-": PRINT" (A) QUESTION THE MAN 

.": PRINT" CB> CONTINUE SEARCHING. 

•i 

1180 INPUT AS 

1185 IF AS="" THEN 1175 

1190 IF A*= ,, A" THEN 1200 

1195 IF AS="B" THEN 1355 

1200 CLS 

1205 PR1NT"Y0U QUESTION THE HAN. 

»: PRIHT" YOU LEARN: -": PRIHT TAB(3 

)"H1S NAME IS CARL GORDON. HE" : PR 

INT TAB(3>"IS THE CLEANER/BOUNCE 

R OF": PRIHT TABW'THE CLUB. HE 



RECIEVED":PRINT TABOV'THE SCRAT 

CUES FIGHTING LAST" I PRINT TAB (3) 

"NIGHT" 

1210 PRINT TABC3)"HE SAYS HE HAS 

SEEN m ONE": PR INT TAB<3>"SEAR 
THE STUDIO THIS": PRINT TAB<3>"M0 
RNIHO." 

1215 FOR X=l TO 8OO0:NEXT X 
1220 CLS 

1225 PRINT"YOUR CHOICE OF ACTION 
S IS:-": PRINT" <A) ARREST CARL.": 
PRINT"(B) CHECK CARL'S STORY." :P 
RINT"C> CONTINUE SEARCHING." 
1230 INPUT At 
1235 IF A$="" THEH 1225 
1240 IF AS="A" THEN 1255 
1245 IF AS^'B" THEH 1300 
1250 IF AS="C" THEH 1355 
1255 CLS 
1260 PRINT"YQU DON'T REALLY VANT 

TO DO'sPRlNT'THAT. YOU DON'T HA 
VE ENOUGH": FRINT"EVIDEHCE. VHY D 
ON'T YOU DO":PRINT"SOHETH[NC ELS 
E?" 

1265 F3R X=l TO 2500: NEXT X 
1270 CLS 

1275 PRINT"YOUF CHOICE OF ACTION 
S IS:-" :FRINT" (A) CHECK CAR'S S 
TORY. ": PRINT" <B> CONTINUE SEARCH 
I NO." 

1280 INPUT At 
1285 IF AS="" THEN 1275 
1290 IF AS="A" THEH 1300 
12*5 IF AS="B" THEN 1355 
1300 CLS 

1305 PRINT"Y0U FIND THE HASAGER 
OF THE":PRINT"CLUB. HE AGREES TH 
ERE WAS A": PR I NT" FIGHT LAST NIGH 
T, BUT DOES NOT":PRINT"KNOV IF C 
AftL WAS HURT." 

1310 FRINT"YOUR CHOICE OF ACTION 
S lS:-":PRtNT"<A) CONTINUE SEARC 
HIHG.": PRINT' EB> REST." 
1315 INPUT AS 
1320 IF AS="" THEN 1310 
1325 IF AS="A" THEN 1355 
1330 IF AS-"B" THEN 1335 
1335 CLS 

1340 PRINT"TH1S IS NO TIME TO ST 
OP. GET":PRINT"BACK TO VORK." 
1345 FOR X=l TO 1500: NEXT 1 

1350 GOTO 1310 
1355 CLS 

1360 PRINT"YOU COHTINUE TO SEARC 

H THE": PR I NT" YARD. SUDDENLY YOU 

FIND, A":PR1NT"BLOOD STAINSD KN1 

FE, VJ?APPED";PRINT"IN DRAWING PA 

PER." 

1305 PR1NT"Y0U COHTINUE SEAPCHIN 

G, BUT": PR INTEND NOTHING MORE 

OF INTEREST.": PRINT'HAVE YOU SEA 

RCHED INSIDE YET? <Y/N)" 

13T0 INPUT AS 

1375 IF AS="" THEN 13-00 

1360 IF AS="Y" THEN 1440 

1365 IF AS="N" THEN 1390 

1390 CLS 

1395 ?RINT"D0 YOU WISH TO? (Y/N) 

1400 INPUT AS 

1405 IF A£="" THEN 1395 

1410 IF Ai="Y" THEN 1420 

1415 IF AS="N" THEN 1440 

1420 CLS 

1425 PRINT"YOU SEARCH THE STUDIO 

. YOU "tPRINT'FIND A HALF COUPLE 

TE LQVE ": PRIKr'LKTTER FRL'M PIER 
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RE TO MARY. YOU" : FRINT"FIND NOTH 

IHC, ELSE OF INTEREST,": PR] NT EXC 

EPT FOR A PART FINISHED NUDE": PR 

INT"STUDY OF KARY." 

14:i0 FOR X'l TO 500<>:NEXT X 

1435 CLS 

1426 PRINV'HAVE YOU SEARCHEE OUT 

SIDE?": PR I NT" DO YOU VISH TO? < 

Y/N>" 

1437 INPUT At 

1438 IF At='T THEN U35 
1439< iP A$="N" THEN 1440 
1440 S=RND<3> 

144i IF 3 = 1 THEN 1460 
1450 IF 5 = 2 THEN 1665 
145*3 tF S -■ 3 THEN 1700 
1400 PRINT*™' VE FOUND THREE SU 
SPhCrS.": PRINT" YOU NOV HAVE TO D 
EC-IDB VHfl IFT:PR»NT"THR GUILTY 
BE, rt : PRINT" YDUR CHOICE OF ACTION 
S IS:- 1 ': PRINT" (A) INVESTIGATED 
RTHER.": PRINT" <B> ARREST SOMEONE 

1405 INPUT |U 

1470 IF As= M " THEN 1460 

1475 IF A$="A" THEM 1625 

1460 IF At-"B" THEN 1485 

1455 CIS 

14<*0 P8 INT" VHO DO YOU VISH TO AR 

REST?" : PRINT" <A> PIERRE 8ALXA1N" 

:PRINT"<B> GEOPCE SVEET" : PRINT" ( 

C> CARL GORDON" 

14*5 IH'UT At 

1500 IF **="" THEN 1490 

1505 IF AS="A" THEN 1520 

1510 IF A$-"B" THEN 15B0 

1515 IF AS-"C" THEN 1580 

1520 HINT" YOU ARREST PIERRE. HE 
BREAKS": PR I NT" DOWN IN TEARS AND 
CONFESSES." 

1525 FOR X=l 10 3000: NEXT X 

1530 CLS 

1535 PR I NT" CONGKATULAT IONS" : PR I N 

T HS: FBI NT" YOU VON!!!" 

1-.4 FOR JM TO 3000: NEXT X 

IMS CLS 

IV30 PRINT" DO YOU VISH TO PLAY A 

GAIN?": FRINT" (Y/N> 

1555 INPUT A» 

1560 IF A*-"" THEN L550 

1365 IF A*="Y" THEN 30 

1570 IF AS="N" THEN 1575 

15/5 CLS; EH D 

1580 I hM NT" WRONG! ! !":PRINT"YOU' V 

E CHOSEN THE VHONG PERSON": PR INT 

"AND ARE NOV EMBROILED IN A " : PR 

INfMASSIVE LAVSyiTi" 

1585 FOR X=l TO 3000: NEXT I 

1550 CLS 

1595 PRIBI-DO YOU VISH TO PLAY A 

CAIN?* -PRINT" tr/Vi " 

1600 INPUT At 

1605 IF At-"" THFIl 1595 

L6L0 IF At-*"V THFN 30 

1015 IF Af-"N" THEN 1620 

1025 FB!KT"YOV BPfJlH TO .VEAKCH F 

OR ANT": FN I NT" POSSIBLE LEAD. YOU 

EVENTUALLY" :PRINT"FIND AN OLD L 

ADY, VHO SAYS":FRlNT n FlBRRE ONLY 
LEFI THE STUDIO": PRlNT"ONCE <TH 
FRF. IS NO PHONE IK THE":PRINT"ST 
UD10. I" 

Io30 PRIMP'SHE IS A NOSY PERSON 
WHO" :?F I NT" WATCHES EVERYTHING AR 
OUMD HER.":FRI»r>JEORGE CALLED 



NCE IN HIS CAR": PRIST" AND ENTEKE 
D THE STUDIO. SHE DID" : PFlNTNOi 

3EE CARL AT ALL TODAY." 
1040 FOE X=l TO 9000: NEXT X 
1650 CLS 
1655 PRINT M ALTHOVGH YOU TRY, YOU 

ARE NOT": PR I NT" ABLE TO FIND AMY 

NORE LEADS." 
IflftO FOR X-l TO 2000: NEXT X 
1061 CLS: GOTO 1490 
lt>65 PRENT"YOU'VE FOUND THREE S3 
SPECTS."- PRINT" YOU NOV HAVE TO D 
EC IDE VHO IS": PR INT" THE GUILTY 
HE."; PR INT" YOUR CHOICE OF ACTIOS 
S lS;-":PRIMr<A> INVESTIGATE FU 
R1HBR.":PRIWT"CB> ARREST SOMEONE 

'i 

1670 INPUT AS 

1675 IF K%' v " THEN 1665 

1680 IF A*="A" THEN 1714 

1685 IF AS="B" THEN 1600 

1690 PR I NT" VHO DO YOU VISH TO AR 

REST?": PRINT" (A) PIERRE BALMAIS" 

: PR INT" <B> GEORGE SVEET' : PR INT" < 

C> CARL GORDON" 

1695 INPUT At 

1700 IF AS="" THEN 1690 

1705 IF A$="A" THEN 1550 

1710 IF AS="B" THEN 1719 

1715 IF A*="C" THEN 15«0 

1719 CLS 

1720 PR I NT" YOU ARREST GEORGE SVE 
ET, IN HIE" : PR INT" ATTEMPT TO ESC 
APE, HE ATTACKED" : PRINT" YOU WITH 

A KNIFE. YOU SPEND A":PRINT"FEV 
DAYS IN HOSPITAL, BUT": PRINT"SU 

CCEED." 

1725 FOR fcl TO 5000: NEXT X 

1730 CLS 

17,35 PRiNT"C0NGRATTJLATl0N5!!!":P 

PINT NS:FPlNT"YOU VON!!!" 

1740 CLS: GOTO 1535 

1744 CLS 

1745 FRINT" YOU SEARCH CAREFULLY 
FOR MQRE";FFINT"LEADS, YOU FIND 
A YOUNG BOY": PRINT" VHO SAYS HE S 
AV GEORGE KEAR'^PRSNT-THE BINS. 
YOU ALSO FIND THAT": PRINT'CARL V 
AS NOT INJURED IN THE": PRINT" FIG 
HT. " 

1750 FOR 1-1 TO 5000: NEXT X 

1755 CLS: GOTO 1690 
1760 FR-INT" YOU'VE FOUND THREE SU 
. c TECTS.":PFINT"YOU NOW HAVE TO D 
BCIDB WHO IS": PR I NT" THE GUILTY 
NE-": PRINT" YOUR CHOICE OF ACTI3N 
S IS:-'-:PRINT" (A> INVESTIGATE FU 
RTHER. ":F*1NT" (B> ARREST SOMEONE 

1765 INPUT AS 

1770 IF At="" THEH 1760 

1775 IF At--" A" THI?N 1850 

1780 IF At="B" THEN 1785 

1705 CLS 

1790 PR INT" VHO DO YOU VISH TO AR 

KEST?":FRINr"<A) PIERRE BALMAIN" 

tPHINI'MBi GEORGE SWEET': FKIN V ( 

C3 CARL GORDON" 

1795 INPUT At 

irtOO IF At-"" THEN 1750 

1805 IF At="A" THEN 1580 

1810 IF At="B" THEN 1580 

1815 IF At="C" THEN 1820 

1820 FRINT"YOU ARREST CARL. HE T 

RIES TO":PRINT"BATTER YOU SENSEL 

RRK. PUT YOU": PR I NT" FINALLY SIIBD 



UE HIM. YOU SPEND": PR I NT" A FEV D 

AYS IN HOSPITAL WITH": PRINTXQNC 

USS10N,' 1 

1825 FOR X=l TO 5000: NEXT X 

1830 CLS 

1835 PR]NT"CQNGRATULATIQNSi II" :f 

HINT Nt:PRINT"YOU VON!! I" 

1840 FOR X-l TO 2000: NEXT X 

1845 CLS: GOTO 1550 

1650 PR INT" YOU SEARCH FOR CLUES. 
YOU SOON": PR INT" FIND AN ELDERLY 
LADY WHO SAW": PRINT'CARL TALKIN 

TO PIERRE IN THE": PRINT" YARD. 

PIERRE WAS LEAVING VITH" : PRIKT"A 

N EMPTY CARRY BAG." 

1855 FOR X=l TO 5000: NEXT X 

1860 CLS: GOTO 1790 




by Charles Bartlett 

HERE IS A SMALL graphics 
quickie I developed In ray 
spare tine. The program 
creates 'bugs' on the 
screen, flapping their wings. As 
time goes by, the bugs Increase 
in number. 
Enjoy it! 



The Listing; 



GOTO10 

3 SAVE"144B:3":EBD 

10 • COCOBUGS DEMONSTRATION 

(C) 1/1/87 CHARLE 
S BARTLETT 

20 POKE65497.0: PALETTE RGB:HBUFF 
1,2300: ON BRK GOTO 90 
30 B*="BH10Q, 10DS8C1E2RH5LURDF5R 
3E5RULDC5RF2C2E4R6GL5G4C1NUC3R5F 
5LH4L5C1NUC4F8LH7C1NUD2GF3GFBDBL 
3HE2H2NEL2F2G2FBL3EH2E2NRL2G2F2C 
BL3BUEHE3NFHU2C4G7LE6C1NDC3L5G4L 
E5R5C1NDC2H4L5HR6F4C1NDBR2C1RFDG 
LHUEBR4RFDGLHUE" :S$="V3105T255L2 
55N12" 

40 HSCREEH2:HCLS15:PALETTE15 ( 31 
50 PALETTE1, 2t PALETTE2, 31 : PALBTT 
E3 , 31 : PALETTE4 ,31: PALETTE5 , 40 : PA 
LETTE14,61:F0RQ=1 TO 20O:HSET<10 
2+RNDU4 > , 99+RND<7) , 5+RHDC2 ) ) : HE 
XTQ:HDRAW BS: HPAIHK101 , 101 ) , 14, 
1:HGET(80,83>-<139,134),1 
60 HCLS15:F0R Q=l TO 20:RX=RHD<2 
60):RY=RiiD(150):HPUT(RX 1 RY)-(RX+ 
58,RY*40),1, AND 

70 FOR L=l TO 10:PALETTE2,2:GOSU 
B80:PALETTE2,31:PALETTE3,2:GOSUB 
80:PALETTE3,31:PALETTE4,2tGOSUB8 
0: PALETTE3 , 2 : PALETTE4 ,31: GOSUB80 
: PALETTE3, 31 : GCSUB80: NEXTL, Q: GOT 
O60 

80 PALETTE6,RNDC63>:PALETTE7,RND 
(63): PLAY SS: RETURN 
90 POKE65496,0:PALETTE RGB: END 
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16K ECB 
by Catherine Threlfall 

I DECIDED TO DO this program 
because when we got the 
computer 1 was pretty 
confused! 

Once ! had finally learnt 
BASIC I started on a program so 
that people who didn't know 
anything about computers could 
do graphics and watch computer 
displays! 

The end result is a 

personalised program in which 
you enter random numbers and get 
to see your own graphics and 
watch sound and colour 

displays! ! 
Have fun! I 



The Listing: 



1301010 

1 ********** JOIN IN *********** 

***** CHATHERIH THRELFALL *** 
3 SAVE" 187 D: 3" : END 
10 FOR X=l TO 250 

20 pRiin"*«rrcocu«***" 

30 NEXT X 

40 FOR X= 1 TO 250 

50 FRIHT"LET'S PLAT A GAME!" 

60 NEXT X 

70 PRIHT"rf##NOW FOE SOME FUI##f 

80 FRINT"VHAT IS YOUR NAME?":INP 

UT At 

90 PRINT A$" .TYPE IN A NUMBER B 

ETVEEN AND 185": INPUT B 

100 FRINT"TYPE IN ANOTHER NUMBER 

BETWEEN AND 185" 
110 INPUT C 

120 PRINT "ANOTHER* : INPUT D 
130 FRINT r ANOTHER": INPUT E 
140 PRINT "AND ANO~HER BETWEEN 1 

AND 100": INPUT F 

150 PRINT "AND ONE MORE BETWEEN 

1 AND 4"; INPUT G 
160 FCLS 

170 PMODE G 

180 SCREEN 1,1 

190 CIRCLE <C,E),F 

200 LINE (250,B>-<0,D),PSET 

210 CTRCLE <D, D),5 

220 LINE (E,F)-<B,D>,FSET 

230 CIRCLE <B, P).JB 

240 LINE <B,C)-(D,E>,PSET 

250 FOR X=l TO10000 : NEXTX . 

200 CLS 

270 PRINT (9 224, AS" .LOOK AT WHAT 

YOU DID!" 
280 FOR X- 1 TO 3000: NEXT X 
290 CLS 

300 PRINT AS". WOULD YOU LIKE TO 
DO IT AGAIN??! ! M 
310 INPUT B$ 



« - a = 8 
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16K ECB + printer EDUCATION by Grahame Pollock 



This program is designed to 
print of! suns for children to 
do on paper. 

Most children can cope with 

buss where they have to fill in 

the answer. Problems artie when 
one of the other numbers is 
missing. For example, filling in 
the missing number in this sura: - 

10 + ( ) = 16 

... Is a skill which must be 
learned with LOTS of practice. 
This program wLU generate a 
wide vai iety of suns to give 
ju&t that sort of practice. 

Not only can the numbers be 
ni55lng, but so can tfce signs. 

Thi3 program Is a teaching aid 
far o difficult mathematical 
concept. 

The cades in line 00 give 
elongated print on a TF-10 or a 
BHF-105 printer. 



The Listing; 



00105 

2 'SUMS BY G. POLLOCK 

3 SAVE" 189: 3": END 

5 CLS 

6 PRINT" MAKE SURE PRINTER IS ON' 
: PR I NT 

10 [JTFW'KISSIBG 

1. NUMBERS 
2. SIGNS 
3. NIXED" ;H 



320 IF B£="YES" THEN GOTO 70 

330 IF B*="N0"THEN GOTO 350 

340 CLS 

350 PRINT AS" .WHAT IS YOUR FAVQU 

RITE THING?": INPUT C% 

360 PR I NT" SORRY "AS", WE DON'T HA 

VE "C$" BUT WE DO HAVE SOME FRET 

TY COLOURS!" 

3?0 FOR X-=l TO 1500: NEXT X 

390 FOR X=i TO 750 

300 CLS <RNDC8>> 

400 NEXT X 

410 TR I NT" NOW ADD SOME MUSIC" 



20 PRINT 

30 INPUT" 1. PLUS 

2. MINUS 

3. MIXED" ;T 
35 PRINT 

40 INPUT-LEVEL 1-10" ; L:L=L*10 
45 PRINT 

50 IN^UT'HOW MANY SUMS'" ;SM 
60 PR[Nr*-2.CHRSi27>r.HMC14) 
70 FGK S=1TQSM 
60 A-RND(L>:A*=STRI(A) 
90 B=BND(L):Bfi=STR$(B) 
100 C=A-B:C*=STRKC) 
110 I?C<0THEN90 
114 Hl=H: IFH=3THEKM1-RNDC2> 
116 I"M1^2THEN160 
120 F-RNDC3) 
130 IFP=1THENA$=" c >" 
140 IFF=2IHENBS^" < >" 
150 IrP=3THENCS="< )" 
160 n=T:IFT*3THfiK T1 = RND(2> 
170 IFTI=1THBNG0SUB33Q 
160 IFT1-2THEHGOSUB240 
190 [:-K»['i2)=2THEMGQSUB250:GOT02 
10 

200 G0SIIB25U:PRin*-2,AS'3J;AS<5 

);A$U);AS(4); A*(2>:PR1NT#-2," M ; 

NEXT^ND 

210 P3 1 NTiT-2 . A* U > ; AS <4 ) ; AS (2 > ; A 

S<5);A4f3>iFFINT#-2,"":NEXT 

230 END 

230 £t<4>=" f":BS(5> = " =" : Bi C 1 > = 

CS; B$<2)=E$:ES<3>-- AS: RETURN 

240 Bfc<4>=" -":BS<5>^' =" :B$C1> = 

AS : B$ (2 > - BS : BS (3 ) =CS : RETURN 

250 F0KIMTO5: ASU) = BSU) :NEXT; I 

F JU=2TIIEN E$<4>=" < >" ; AS(4> = BS 

(4) 

255 RSfTORM 



O 



4?0 FOR X=l TO 20OO:NEXT t 

430 FOR X=l TO 200 

440 CLS CRND<8>> 

450 fcOUND RND (255>,1 

460 HPKT X 

470 PRINT <9 22V't"A$", YOU'RE WO 

NDERFUL1 *" 

4.30 FOR X=l TO 30^0: NEXT X 

4$0 CLS 

500 PRINT d> /M)V*t*rmtr 

510 FRINT <? 235, M *tHE END*" 

520 FRINT <? 26? ,"*********" 

530 FOR X=l TO 3000: NEXT X Q 
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Cl>AY MATE IS AN easy 
but exciting gam* which 
will appeal to all 
children who can recognise and 
put letters of the alphabet with 
their "antes", le A's with A's 
-Mid so on. Thus there is an. 
plpwnt of education in the 
game, tuu. If it Is toa easy for 
older onos or adults, 

instructions are given t3 make 
It harder. 

Vkeci the spacebar 1*5 prc&ocd, 
one dj the four letters ("M", 
"A", "I" and "R"> start moving 
BCtQS"7- Ml«* scieen towards four 
"paddiK.fcS"' . each marked with one 
of thr ?aroe. four letters. Use 
til" 1 spacebar, or any key t to 
siiap the moving lettfrl in tht» 
paddock marked with it-* "mate" 
1*1. U I 

At i lie end of ten goes, the 
E*c-ors !&■ dlspl^yt-d up on the 

SOT £filh 

Supplementary Notes 

Th? following Euntroiftry of the 
[rtogiam shows thfl lines that 
nllaw 'ipeed, letter? and number 

of turns to ha -changed, If 

d#&lf*»(I. Letters can be changed 
lo ^ parsons name, or Just to 
walk Uuough the alp-habet. 

Lino lire Function: 

10: Title Pdge 

M: Initialization. Change 'C 
value for nuirober of goes 



EDUCATION 



wanted- 
120: Fi tnt purple "fences" at 

correct places (change CHRf 
number far other colours). 

HO: Prints the four letters in 
their respective "paddocks". 

160-170: Randomizes the four 
letters and selects one (J$>. 

160- IPO & 210: Randomizes 7 
possible paths for letter to 
t.e»k«, and prints letter on that 
path- 

200: Adds 1 number of goes. 

220: Sets delay between 
printings or letter <thus 

dvttr trims the speed oi travel) , 

230: Backspace character erases 
la?t pt inting. 

210: Keeps movement and 

printing of letter in progress 
while POS <print position} of 
letter is greater than zero or 
until spacebar 'or any key) is 
pressed. 

20 0: Checks position of letter 
when spacebar (or any other key) 
is pre*T"ed. If the position does 
not mate up with the letter 'M' 
in the "K" paddock, etc' the 
action goes to 300 <low-pltched 
"Fail" sound). 

If the ltjttei ito correctly 

stopped, action goes to 270 
("Reward" music > and another 
'hit* Is registered at line 280. 

320: Unless 10 goes have 
occur ed, this line returns 
action to 160 for another random 
letter to start its journey, 

340: Results of game displayed 
on screen. 



by Mai McLaughl&n 
The Listing: 

1 '**#*«*#**G"DAY HATE********** 

**tm**BY HAL MCLAUCHLAN******* 
m tm******FEB. 1987*********** 

2 GOTO 10 

3 SAVE"167B 3": END' 2 

4 '^EDUCATIONAL AND FUN GAME FOB 
ALL ECB COCO MODELS, AND FOR ALL 
CHILDREN OLD ENOUGH TO RECOGNISE 

LETTERS************************ 
10 CLS:FOR P=9 TO 21: PR1NTOT.CHB 
S(23Q);:HEXT P: FOR P=41 TO 457 S 
TEP 32:PRINH?P,CHRS<239);"G , DAV 
KATE! M ;CHR*(239);NEXT P:FOR P=48 
9 TO 501 : PRISTS, CHR*<239) j : NEXt 

P 
20 FOR DL =1 TO 200O:NE)(T 1>L 
30 CLS7: PRIST" put n, a,t & e wit 
h their nates": PRINT" IS TURN, F 
OUR LETTERS OF THE ALPHABET. ¥. 
,A,T AND E, MOVE ACROSS THE 

GREHH FIELDS TOWARDS FOUR PADDQC 
KS MARKED WITH THOSE SAKE LETTER 
5," 

40 PRlNT"rOUfl JOB WILL BE TO PRE 
SS THE SPACEPAR TO STOP THE M' 

5 VITH THEIR KATES IN THE ' M' 
PADDOCK, THE A'S IN THE 'A' PADB 
OCK, AND SO ON." 

50 PR I NT" AT THE END OF TEN GOES. 
YOU V1LLSEE YOUR SCORE ON THE £ 
CRFEH." 
60 PRINT" GOOD LUCK, MATE! 

70 PRlNT«9485,"<spacebar to play> 

60 IF INKEYMCHR$<32> THEN 90 EL 

SE 80 

90 A'0:E-0:C=10 

LOO CLC 



42 



CHECKER PATTERN 
16K ECB 

by Mai McLaughlan 

HERE IS Checker Pattern, 
a very sinple hut 

colourful way for 

beginners to soe something a 
little different that they 
thenselves have typed in. 

And perhaps some Df you 
leaner* can see how I made CoCo 
pick out Just tte checker 
patterns I wanted, and have then 
displayed on the screen. 

****»m**BOaHAH. Q.4310tirttttt 
2 GOTO 10 

3 savb"16?a:3":emd'10 

4 "***a simple attractive screen 
using "checkerboard" graphic 
blocks************************** 

10 CLS3 

20 FOR L=1024 TO 1535 

30 Y=RND(7> 

40 CHEK=137 + YUfi 

50 POKEL.CHEK 

60 NEXT L 

70 FOR A°1T05BO:PR!NTCHRS<255>;: 

BEXT 

SO GOTOIO 



110 *OR G=l TO 4: FOR H=0 TO 15 
120 FRINT«32*H+17+3*G,CHRS<239); 
130 NEXT H 
140 PR1HT©18«-3*G,HID , 4("IIATE , \G, 1 

u 

150 NEXT G 
160 G^RNDU) 
170 JS=MIDS<"MATE",G,1> 
160 H=2*RND<7) 
190 PRUT©32*H,; 
200 &=B41 
210 PRUT " "JS; 
220 FOR Dt=l TO S0:HEXT 
230 PRINT CHFS<8>; 
24-0 IFPOS(0)>0 AND [SKEY*=" M THEN 
210 
250 'CHECK POSITION************* 
230 IF IHT(<FOS(0>-I6)/3)OG OR 
POS(0)=20+3*G THEN 3C0 
370 PLAY"T20O4L16CPC" 
260 A=A+1 
590 GOTO 320 
300 PLAY"02L4C" 
310 IS-IHKEYJ 
320 IF B<C THEN 160 
330 CLS 

340 PRINT A"HITS OUT OF"B 
350 PR I NT© LOB ."ANOTHER GAME? <Y/ 
N>" 

360 I*=IBKEYA:1P U="" THEN 360 
ELSE IF 14=" Y" THEN 90 ELSE IF I 
*="N" THEN 370 
370 CLSB:PR1NT«9130,"CHAHGE ME IF 

I'M TOO FAST ";:PR;NT@162,"0R 
TOO SLOV! MAKE THE DL ";: PRINT 
9194, "VALUE HIGHER II LINE 220 T 
;>";;PR.UtT<?22V'SLQV HE DQVN. YOU 

CAN ALSO "; :FR1NT(?258, "CHANGE T 
HE 4 LETTERS IN "; : PFINTS290, 
"LINES 140 AND 170. 
200 GOTO 380 O 



JVIUSIC 
TUTORIAL 



16K ECB 

MUSIC 

MANY OF THH ONE- PART 
music compositions we 
play on CoCo could b*i 
made more exciting by use of the 
facilities we have for changing 
tempo and/or volume ae the piece 
progresses. 

Host of us are content merely 
to set tempo for the whole piece 

and leave it at that, 

But ECB provides other 

music-playing "tools", and we 
may as well use them! 

Vith Qach of Octave (0), 
Volume <V>, Length (L: , and 
Tempa (T) we can use:- 

'V following '0\ 'V, etc to 
add 1 to the current value <eg 
if octave is 3 then ' _>" makes 
it 4). 

'-' following the letter 
subtracts 1 from the current 
value. 

•>' multiplies the current 
value by two. 

'<' divides the current value 
by two. 

You can see this by listing 
this short tutorial and studying 
It carefully. RUN it and hear 
the abovg ideas i 1 lustr atod. 
Listen to "There's a hole in my 
bucket" and judge for yourself 
if it is better than a 
"straight" rendition. 



by Mai McLaughlin 



The Listing: 



j ****** mHU3ICTUT**** ********* 

*BY UAL MCLAUCHLAN.il HUNTER ST* 
***r***x*B0ONAH. Q- 4310******** 
3 GOTO 10 

3 SAVE" 167: 3": END' 10 

4 'tXVRITTEN TO ENCOURAGE MUSIC- 
MINDED PROGRAMMERS TO EXPERIMEHT 
VITH VARIATIONS TO SET MUSIC**** 
10 CLS7: PRINTS l"94,"n u s i c t 

u t o r i a 1"; '.PRINT$322,"VARI 
ftTIUHS UN play COMMAND"; 

15 FOR t>L=l TO 2000: NEXT DL 

20 CLS2: PRIKT"NORMAL (DEFAULT) 

CTAVE. TEMPO, AND VOLUME" 

30 PLAY"02iT2;V15" 

40 PLAY"GDEFGAB" 

50 PLAY"P2" 

60 1'RTNT:PRINT"HIGHER OCTAVE VIT 

H Q+" 



70 PLAY"a4;CI>EFGAR" 

SO FLAY"F2" 

90 FR!NT:PR1NT"TEKP0 INCREASED V 

1TH T+" 

LUO PLAT-r+;CD;r+;E;T+;FG;l + .AB 

110 PLAY"P2" 

120 PRIST: PR IHT" TEMPO IHCREASED 

GREATLY VITH T>" 

130 PLA?"T>;CDEF;T>;GAB" 

L40 FLAY"P2" 

L50 PRUT; PR INT" VOLUME DECREASED 

VITH V<" 
t'iO FLATP2" 
170 E'LAY"02; V30; T3" 
180 FLAr'F2" 

190 PLAY"V<;CDE;V<;FG;V<;AB* 
200 PLAY"P2" 
210 PR IHT: PR I NT". . .AND INCREASED 

AGAIN WITH V>" 
220 PLAr'V>;CDE; V>;FG;V>;AB" 
230 FLAY M F2" 

240 PRlHT:PRINT"OCTAVE REDUCED V 
ITH 0-" 

250 PLAV'O-iCDEFGAB" 
260 PLAY"P2" 
270 FLAY"P2" 
280 CLS4 

290 PR IHT: PR INT" AND LOTS MORE OS 
ING C0MBIHAT10HS0F +,-.>,ARD< VI 
TH O.T AflD V 
300 PLAY" PI" 
310 PRUT: PRINT" SO LET'S PEP UP 

A GOLDEN OLDIE VITH SOME VARIAT 
IONS USISG THESETECHNIQUES:-" 
320 PLAY"P1 ; PI" : PRIBT: PRINfCHAN 
GE OCTAVE AND TEMPO" 
330 PLAY"02;T2;V15":FOR RPT=1 TO 

2; PLAY'Ot; Tt; LBGAL4BDDEGDEGDEGL 
BGAL4BDDEGDEGF#L2G":NEXT RPT: 'CH 
ANijE OCTAVE AND TEMPO 
340 PRINT: PRINT"CHAHGE TEMPC" 
350 PLAY"T4" : PLAY"T-f03L8CAL4BDDE 
GDEGDBGL8GAL4BDDEG; T- j DEGF#;T< ; L 
2G": 'CHANCE TEMPO 
360 PRINT: PRINT"CHANGE VOLUME" 
370 PLAY-03; T4 ; V4" : PLAY" V+L8GAL4 
B; V> i DD; V+; EGD; V+; EGDE; V+; GL8GAL 
4V+P-DDEGV-DEG;V4;F#L2G": 'CHANGE 
VOLUME 
380 PRINT: PRINT"BOV AS A FISALE, 

A MIXTURE OF VARIATIONS;-" 
3*0 PLAY"02iT5iV20,LeGAL4BDDEGDE 

GDEG" 

400 PLAY"0+;L8G;V+; AL4BV+DDEGDET 

-GFffL2G" 

410 PLAY"0*;V*;T+;L8GAL4BDDEGDEG 

DEGL8GAL4BDDEG; T-; DEGF#; T-; L2G" 

420 CtS2:G0TQ 420 



o 
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BUILD 



32K ECB 
EDUCATION 





ROBOT 



by Bob Home 



THE HL ROUTINES in this 
program are adapted from 
Chfl screen scrolling 

routines ueed by John FRAYSSE In 
"ROACH" and "MARATHON" - see 
Australian Rainbow, June 1983 
and November 19-83 respectively. 
The pokes at the end of line 50 
allow tlie program to run on a 
diss system. 

If yon tfish to change the 

tables which are generated, then 

alter lines 230 to 270. 1 have 

deliberately kept the answer 

Input routine to 3 digits (It 

automatically goes to the 

*>vnl nation of the answer after 3 

digits have been input) to avoid 

having a rather larg? hole 

appear In the main body of the 

machine. Another thing to 

remember ii you make alterations 

to the numbers generated is that 

]f the question beccmos too 

I org, it will not fit In the 

question box in the centre of 

the scieeo. 

The program has plenty of REMs 
50 you should be able to follow 
the action quite easily. 

I hope you have fun with this 
program - ray class cei tainly 

da?S. 



The Listing: 



O 



2 FRN* MAKE A ROBOT * 

3 REM* BY BOB HORNE * 

4 REM* IPSWICH, QLD * 
O REM*************************** 
6 G0TO10 

8 SAVE"30;3" :END 

10 CLS0:CLEAR80O, 32600 

19 REH**m**TITL6 SCREEN******* 

20 FRINT*105 t "build"+CHR*U23)+ , • 
a"»CHR$<128>V'robot M ;:PKlHT9206, 
"by";:PRINTS29B, ,, bQb , '+STRII*G$<3 1 

128)+"horne"; 

30 D1MCH$(49).RO(20),CL(20) ( VA»1 

10) 

40 F0RX^1T049:READCH*U>: NEXTX 

49 REH***P0KE IS K. L. ROUTINES** 

50 FORX=32601T032708: RE ADAS: POKE 
X, VALC &H"*AS) : NEXTX: DEFUSR0=326 
01: [iEFUSRl=32626:DEFUSR2=32e79: I 
F PEEKa8*8) = 14 THEHFOKE32602.30: 
POKE32621,34:P0KE32627,21:P0KE32 
674 , 24 : POKE32680 , 30 : POKE32704 , 34 
50 REMxCOPRF.CT ANSWER RESPOISES* 
60 RASd)-" RIGHT" :RA*<2>="C0RREC 

T": PAS C3)=" GREAT" : RA*(4)="TERR IF 

IC" 

70 GOTO 100 

79 REH** n BAV STRINGS ON SCREEN** 

80 L=LEN(WE):FORZ=1TOL:M=AS:<H1D 
S(V4 t Z,D>-4l:IF M=-9 THEN DRAV" 
BR4" ELSE DRAVCH*<M) 

90 DRAV"BR2 M :NEXTZ: RETURN 

yy REM****DRAV AND GET ROBCT**** 

100 PM0DE3,1:FCLS 

110 DKAV"C3BH4,30R5U2LU2R4D2LD2R 

5U2L2U2NL8E2U8H2NUE2U2R2HE2NU2L 

2U2H2L8G2D2L2NP2NU2R2D2F2G2D8F2D 

2L2DS" 

120 1,INE(8,8)"<12, 12).PSET,BF 
130 LlNE<9,16)-a2,24>,PSET,BF 
140 GET(1,5)-(19.30>.RO,G 
ISO GQSUB810 



159 REM****IF FL=1 THEN GAME HAS 
BEEN PLAYED AT LEAST ONCE******* 

160 IF FL=1 THEN LINE<0, 131)- (25 
5, 155) , PRESET, BF: GOSUB1000: SCREE 
HI , 1: FORX=1T028: A=USR1 (0) : NEXTX : 
ELSESCREEN1.1 

170 P0RX=1T027;A=USR0 (0>; PLAY" V3 

1L6T255CDE":REXTX 

ieo VA-0:RA=0 : IQ=10:FORX=1TO10:V 

A£<VA>="": NEXTX 

189 FEK****KAIN LOOP STARTS***** 

190 FORZZ=1T010 
200 S=RND(-TIMER> 
210 DRAV"C4S8BM64,77" 

220 S=RHD<4):DN S GOT0230, 250.27 
0,290 

229 REH***ADD1TI0H - ALTER RIDO 

TO SUIT*** 

230 a=RHD<I7>*3:B-RHDU7>+3:CA-A 

HB:A$=STR*<A):B$=STR$<3> 

240 V*=RlGKT*(Aa,LE*<A*>-lM"+ , M 

RIGHT»(BS,LEB(BS)-l>:GOSUBS0;Vl» 

=V*:GOTO310 

249 REM***SUBTRACTI0N - ALTER 

RNDO TO SUIT*** 

250 A=RMDU7>43:B=RND(L7)+3:C=A+ 
B: CA=C-A: A*=STR* CA) : C*=STRS<C> 
260 VS=PIGHT»(C*,LEH(CS)-1 )+"-"♦ 
RIGHT* (A*. LBN (A*)-1>:GOSUB60: VII 

=V$:GOTO310 

269 REM*****MULTIPLICAT10PN<**«* 

270 A=RND(8)42:B^RND(8)+2:CA=A*B 
i A*=STR* CA) i B$=STRS <B) 

280 V*=RIGHT*<A*.LEH(A*>-1 >+"*"+ 
RIGHTS (B»,LEN(B*)-l):GOS0B80: VI* 
=V*:GOT0310 

289 REM**»D1V1S10» - KEEP NUMBER 
DELOV 100 OR ALTER SIZE OF 
QUESTION BOX*** 

290 A=RND'7)*2:B=RND<8)+2:C=A*B: 

AS=STRS (AJ : GS=STR* <C> i CA=C/A 
300 V* = RIGHTS<C$,1.EN<C$)-1>+ , V ,, + 
RIGHTS (At, LEN(AJ)-1):GOSUB80; VI* 

310 E=136:F0RJ=lTO3: tW*(J)="":JB 

XTJ:IN*=INKEY* 

319 REnWACCEPT UP TO 3 DIGITS 
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FOR ANSWER*** 

320 FORJ=1T03 

330 1N$=INKEYS 

340 IBS(J)=IHKEY*:LISH(E,42)-(E+ 

8,52).PSET,BF:PLAY"V3102T255CED" 

LINE(E,42)-<E+8,52) .PRESET, BF 
350 IF IK$(J>="" THEB340 
360 IF IH$(J>=CHR*(8) THEB LIBEC 
136,38>-U74. 54), PRESET. BF:GOTQ3 

10 

370 IF 1N*U>=CHR$U3> THEH4-10 

380 IF INJ(JX"Q" OR IB$(J)>"9" 

THEH340 

390 DRAWCSBIT+STRS^S-t-^*.!)*". 

52" : W=IH$<J3 I GOSUB80: E=E+12 

4 00 NEXTJ 

410 IB*-"":FORX=1T03: 1BJ.= IN*+IR$ 

(X): HEXTX 

420 FORX=1T036:A=USRI(0):IF X>3 

AND X<33 THEB LINE(Q,63>-(0,79) , 

PRESET: HEXTX ELSE BEXTX 

430 IF VAL(IH$)=CA THEN44Q ELSE4 

80 

439 REK*****CORRECT ANSWER****** 

440 FORX*25TO0STEP-2:GET(24.12+X 
)-(40,37),S0,G:PUT<7,131)-(23 1 15 
6-X),R0, PSET: NEXTX 

450 PLAY"V31O2T3L10CEGQ3CF20O2L2 
OG03L2C" 

460 F=RHD<4> tCAl-STRi(CAJ:V4=RA* 
<F)V "+VU4 M ='"+RIGHT*CCAt,LEH< 
CA* ) - 1 ) : F0RX=2TO4 : PLAY" V3 1T255CD 
E" : DRAV"C=X; BM30. 191" : GOSUB80: HE 
XTX 
470 RA=RA*l:GOTO520 

479 REM******WRONG AXSWER******* 

480 F0RX=25T00STEP-2 GET(69,12+X 
)-<85,37),CL.G:PUT<7,131)-<23 1 15 
6-X>,CL,P5ET; BEXTX 

490 VA^WA+1 

500 CA5=STR*(CA>;W="S0RRY "+VT 

S+ , '="+RLGHTS(CAS,LEN<CA*)-l):FOR 

X=2T04: PLAY"V31T255CDE" : DRAW"C=X 

;BM30, 191" :G03UB80: NEXTX: WAS (WA> 
=VU4" = "+RIGHT*(CAl,LEB(CAS)-l 

) 

510 PLA?"V31L10O3T100;l;5;9;4;2; 

3; 6; 9; 6; 2; 7; 3; ;7;8;5;2; 3; 5; 7; 9; 9 

520 IF ZZ=10 THEB530 ELSEF0RX=1T 

03: PLAY"02T255DEC" : A=USfc2 (0) : NEX 

TX: F0RX=1T028: A=USR1(0> : BEKTX 

530 LIRE(136,38)-a74,54), PRESET 

,BF:LIHE(0, 179) - (255, 191) , PRESET 

.BF 

540 BEXTZZ 

550 PLAY"V30T8O3L4AF16L2AL4GFL4C 

L3CL4FB-AP4FGO4L4DC03AB-AAGL3B-L 

OAL2F" 

559 REM*m***SCQRB CAFD******** 

560 CLS:PRINT<n39,' , YOUR SCORE"; 
570 PRlHTGlSCSTRINGSOa^); 
580 PRIMT8224," NUMBER BIGHT: "RAj 
590 FRIHT®?88, "THERE VERE"HQ"QUE 
STIOBS"; 

600 PRIBT®352, ,, PERCEBT:"; UTCRAV 
NQt 100) :PRINT<P384. STRINGS (32. 45) 

610 PRINTG4 82,'"PRESS <EBTER> TO 

CONTINUE."; : IBS=iNKEY$ 

620 INS=INKEYS: IF ISSOCHRSU3) 

THEH620 

630 IF VA=0 THEH760 

639 REK*REVIEW HISSED PROBLEMS** 

640 CLSMF VA=i THEN MS="IS THE 
ONE" ELSE M$="ARE THE ONES" 

650 PRINT"HERE "+M»t" YOU MISSED 



660 IF VA=1 THEBPRIBT'VRITE IT D 

OWN AND LEARH IT." ELSEPRINT'VFI 

TE THESE DOWN ABD LEARB TUB*."; 

670 PRIBT;F0BX=1T0 VA 

680 F0RY=1T0 LEB (WAS (X) ) :M*=MID* 

<VA4U>,Y,1) 

690 IF M*="+" THEBPRIBT" PLUS 

"; ELSE IF HS="-" THEB FRIHT" 
H1BUS "; ELSE IFM$= M *" 1HEHPR1H 
T" TIMES »| ELSE IF MS="/" THE 
HPRIHT" DIV. BY "; ELSEPMNTKS; 
700 HEXTY 
710 PRIBT:PRIBT 

720 IF X=5 AHD VA>5THEB730 ELSE7 
60 

730 PRINTG482, "PRESS <EStER> TO 
CONTINUE-";: INS^INKEYS 
740 INS=INKEYS: IF IBSOCHR$<13) 
THEB740 
750 FORTI=3T014:PRIHT®TI*32.STR1 

HGS (32, 32 > ; : BEXTTI I PR I NT94B2 , STR 

1NGJ<26,32); : PRIRTS96,"" ; 

760 BEXTX: PR IBT5482, "PRESS <ENTE 

R> TO CONTIBUE.";: 1NSMBIEYS 

770 IBJ=IBKEYS:1F IN$OCHR*U3> 

THEK770 

780 CLS;PRlBT(?202,"next player"; 

:FRI HT8258," PRESS <EBTER> TO PLA 

Y AGA1I.";:II5=1NKEYS 

790 IF INKEYSOCHRS<13) THEN790 

800 VA=0:FL=1:GOT0160 

609 REM*****GRAPHICS SET-UP***** 

810 PCLS 

820 FORX=9T0231STEP24:DR.\W"S4C2B 

H M 4-STR*a>+ M .l56Rl4D8L14U8":PAIB 

TCX+5, 160) ,2,2: HEXTX: REX***STAHD 

830 DRAW"C4BM0,102D24F4R23E4U4R1 

25E4V12E4R16D16R66E4U80LI 18G4D64 

L123 ,, .REM***NACHIBE 

840 PAIKT(l80,6O),4,4:REM******* 

PAIBT MACHINE******* 

850 DRAVC2BM184.66R6U22R4U34L4U 

8RL8RD8L4D34R4D22":PAIBT(1B6,50) 

.2,2 

860 COLOR1:CIRCLEU45,65),6:CIRC 

iRCLE(210,80),5:ClRCLE(210,80)>l 

5:CIRCLE(210 ( 80),20:CIRCLEC135.8 

5) ,5: REH***PULLEYS*«* 

870 LIBE<240,40>-(240, 1C0), PSET: 

FORX=40TO10OSTEP5:LIHEC240,X)-<2 

48, X>, PSET: BEXTX 

880 LlNEU48,61)-U77,a3),PSET:L 
INEa38,65>-a64,95>, PSET: LINE (1 

68,88)-<200,65),PSET:LlliE(l68,93 
)-<205,98>,FSET 

890 LI NEC 135, 37)- (175, 55), PRESET 
, BFrREM****ANSVER GOES HERE***** 

900 FORX=205T0220STEP15:C!RCLE(X 
, 40> , 5 , 2 : PA 1 NT ( X, 40 ) , 2 > 2 : NEXTX : 
REH***MORE MACHIRE*** 
910 LIBE(190,102)-(230.110),PRES 
ET,BF;REHt****HQRE MACHINE****** 
920 FORX=16T05&STEP42:DRAW >, C2BH" 
+STB* <X ) ♦" , 6NF4 R32BG4D38BH4L32HE 
4U38F4R24D30L24-U30'" : BEXTX: REM*** 
PICTURE FRAMES*** 

931) PUT<23, 12)-U1,37> ,30, PSET: D 

RAW" C3BR25, 50F5E10" ! DRAVX4BM73, 

37H2U2EU2RU2EU2R4U2R2D2FD3RD2FD3 

G2L10 M :PAIHT(73,33),4,4;REM***** 

THIHGS IM PICTURES*** 

940 DRAV"BH73.50H5F10B1J10G10 M :DR 

AW , C3BM196,25R15FD30FR25":DRAW"B 

M178, 25L36GD8" : REM*****NCK AMD 

CROSS*** 



950 EORX=4T0132STEP12:CIRCLBU,8 

&),5.4:FAINTa,88>,4,4:NEXTX;FOR 

X=4TO251STEP12:CIRCLE(X,170),5,4 

:PAIST(X, 170),4,4:NEXTX:COLOR2:L 

I BE (57, 60)- (126, 82), PSET, BF: REM 

***CONVEYER BELTS AND SUM BOX*** 

960 LINEC60,63>- (123,79) .PRESET, 

BF:DRAW"C7": LINE (0,169) -(255, 171 

),PSBT,BF;LIWE<0 ) 87)-<126,fl9) 1 PS 

ET,BF:REM***PART OF ANSWER BOX** 

AND***CGNVEYOR BELT*** 

970 FORI=2T0132STEP24;LINE(X,68) 

-U+4, 101), PSET, BF: NEXTX: LIBE<0. 

83>- (126.83) , PSET: FORX=2T025!STE 

P48: LINE (X,l 70)- (XM, 178), PSET, B 

F: BEXTX: LINE (0, 165)- (255, 165; , PS 

ET:REMit*SUPP0RT POSTS*** 

980 DRAV'C8":LIHE<0,178>-<255,17 

8). PSET 

990 DRAV"C7" :FOHX=6T0108STEP24:D 

RAW" BH" fSIKS ( X ) + M , 86Mf20 , * 12DM-2 

0,-12BDUM+20,-12DM-20,-H2":BEXT 

X:REH***BRACES BETWEEN POSTS**** 

999 ?EM*******DI RECT IORS*** **** * 

1000 CL30:PRIBT©105. "BUILD A ROB 
Or' i iPRlNT?^,' 'REMEMBER TO ?RES 
S <EBTER> AFTER YOU FINISH TVP1B 
G YOUR ANSWER. *j :PRINT«352," IF 

YOU MAKE A MISTAKE PRESS THE "; 
1010 PRINTG384, "BACKSPACE K.EK 
ABD START AGAIN. ";: PRIBT54S3, "PR 
ESS <ENTER> BOW TO START."; : !■*= 
INKEVS 
1020 INi=INKEY$: IF 1NS<>CHR$(13) 

THEN1020 ELSE RETURN 

1029 REK********DRAV STRINGS FOR 
CHARACTERS*** 

1030 DATABUE2BH2BE2F2BD.BU3R2BU2 
BR2D2BDBR2, , BU3BRR2BD3BR, , BR2BUU 
BUHL2HE2BUUBD5BR3 

1040 DATABRHU4ERFD4CBLBR2, P2U6NG 
D6R2, B15ER2FDGL2GD2R4.BU6ER2FDGN 
LFDGL2MHBR3, BR3U6G3R4BD3, BUFR2EU 
2HL3U2K4BD6, BU3R3FDGL2HU4ER2BD6B 
R.BU6R4DG3D2BR3.BRHUER2EUHL2GDFR 
2FDGHL2BR, BRR2EU4HL2GDFR3BD2 
1050 DATA, , , BRBU2NR2BU2R2BD4BR, , 
, , U5ER2FD2NL4D3 , RU6NLR2FDGKL2FDG 
NL3BR, BR4BU5HL2GD4FR2EBD, RU6HLR2 

FU4UBL2BK, UCNH4 U3NR3D3R4 

1060 1MTAU3NR3U3R4BD6.BUU4ER3BD4 

NLD2L35HR3,U3NU3R4HU3D3,R2U6NL2N 

R2D6R2. BUBUFR2ENU5BD, U3BU3RHE3F3 

, NU6R4 , U6F2DUE2D6 . U6F4NU4D2 , BRHU 

4ER2FD-IGBL2BR 

1070 D.\TAU6R3FD>GL3D3BR4,BRHU4ER2 

FC4GNL2BUHF2, U6R3FDGL3RF3, B'JFR2E 

UHL2HUHR2FBD5, BU6R4L2D6BR2 , 3UNU5 

FR2EBU5BD. BU6D4F2E2U4BD6, NU5E2UD 

F2NU6, UE4NUG2H2NUF4D, BU6DF2S2NUG 

2D3BR2, BU6R4DG4DR4 

1079 REH****SCROLL LEFT DATA**** 

10SO DATA8E.16,60,A6,Q4,10,8E,00 

,1F,E6,01,E7,80,31.3F,26,F8,A7 1 8 

0,&C ( 1A,80,2F,EB,39 

1089 REMISCROLL RIGHT IB CENTRE* 

1090 DATA8E,0D,6F,C6,OF,A6,B4,46 
,46.46,64,00,34.02^6,84,44,44,3 
4,02^6,^,46,40,46,84^0, AA.EO, 
A7,84,30,1F,5A,26,EA,A6,84,44,44 
, AA, EO, A7 , 84 , 30, 88 , 2F, 8C, 10, 60, 2 
F.CF.39 

1099 REM***SCROLL RIGHT DATA**** 

1100 CATA8E, 16,7F,A6,84 t lO,8E,00 
I 1F,E6 ( 1F,E7,84,30,1P,31,3F,26,F 
6,A7,84,30 1 8B ) 3F.8C,1A,AF,2F,E6, 
39 O 
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AUSTRALIA!) 
STOCK 
m ARKET 
SimULAT 



nS 1 WORK through ny 
files, I find new tilings 
to "JtJ, Old pdgl'dlfta 1 
hove worked on and put aside, 
dlid QCCel&lUltdll'y, SOflfe MC"10 
pi og rams I have not altered to 

run on Co-Co. 

"AVSrUCK" Is, una ol these 
latl*»r. I h<td forgot l&r. that 1 
had Lhat particular tape until 1 
sow a friend playing It, and 
"borrowed back" a copy of it. 

Feeding it Into the CoCo was 
no problem, but the tokens are 
all different, and I had to 
alter EVERY LINE to the correct 
tokens. Even so, it tuok less 
than hall tht- time it would have 
typing it in ii^a In, eveii in Lira 
amended form- 
Tie aiigiiidl program, 

copyright of which 1 have 
acknowledged in the first lew 
lines of the program, dim In the 
tradition of fairness I ask you 
all to include, had a rather 
slow and cumbersome initial 

screen, so I altered it 

altogether. 

Tie original program was also 
rather slow and a bit Luting, so 
I souped It up a bit - 
<qu;ck-ltft cams, polished 




The Listing: 



porti 



and that kind of stuf 1 ) „ 



and put in a goal, which the 
original didn't have, ten 

nili ion dollars. You start off 
with a hundred thousand dollare 
and nuct earn your way to 10 
ml 1 1 ion dollars. 

I think you'll get a kick out 
ot playing the Big Australians, 
some of which aren't even on the 
Stock Exchange, and reacting to 
the purely local conditions. 

To compare this with th« 
original, look it up in Oz 

HaHI>nw, tag-list 19U4. 



fjOTOlQ 

3 SAVE"180A:3":EMD' 1 
10': -SIOCKNARKET SI MULAT0R-: 
20 ' BY GARY VICK, MADISON 
30 ' VISCONSGN - TAKEN FROM 
40 • HOT CO-CO JUNE. 1984 A*D 
50 ' ADAPTED FOR AUSTRALIAN 
60 ' CONDITIONS AND ALL TAMHY 
70 ' COLOUR COMPUTERS OVER 15K 

BY J0HK DAY, NOV. 1986 
80 CLSO:CLEAR500 

90 FORX-OT063:Srr<X,0.a>;SET<X,3 
1,8): NEXT 

100 FORY=0TO31:SET<0,Y,8>:SET<63 
, Y, 8): NEXT 
UO PRIBTei73,"the"; 
120 PRIST<P233,"stockmarket"; 
130 PRira301,"gane H ; 
140 FORD=1T01500;NEXT 
150 PRIKT<n73,STRINC$<3.128>;:'F 
OR MC-10 PRIHT THREE SPACES 
160 FRCtTti233,.STKil&*X12t*28)-it' a 

FOR XC-IO PRINT 12 SPACES 

170 PRIKT©301, STRINGS (4. 128 ) | : ' F 

OR MC-10 PRIST FOUR SPACES 

L80 FRIKT®98, "WOULD YOU LIKE CHS 

TRUCTIOKS?"; 

190 PRUTCU1,"";: INPUT At: IF A* 

O"Y"THEN630 

200 C$="»":Z=1 

210 CLS0:FORX~0TO511;PRiNW(,"l" 

; ;NEXT 

220 FORX=0TOe3:SET<X,0,3):SET<X. 

C1,3>:NEXT 

230 PnRV=0Tfl31 : SET (O, Y. 3) : SET (63 

, Y,3):N£XT 

240 SOUTD240,1:PR1NT«33," THE OB 

JECT OF THE GAME IS TO "i 

250 GOSUB4160 

260 SOUBD240,l:PRlHTWr\ ,, ICAKE AS 

MUCH HONEY AS YOU CAN"; 
270 GOSDB4180 
280 SOUSD240,1:PRIHT*162 
VING AND SELLING STOCK"; 

£90 GOSUB4160 



BY BU 



300 SOUND140, 1: PRINTO420. "PRESS 

<SPACE> TO CONTIWUE" | 

310 IF INKEYI=""THEN310 

320 FflRX=OT063:SET(X.O,2):SET(X. 

31,2): NEXT 

330 KORY=0TO31:S£T(0.Y,2):SET<63 

,Y.2>:NEXT 

340 SOUNC240,1:PRINT©33,"TUE STO 

CK PRICES ARE AFFECTED ■' \ 

350 GOSUE4180 

360 SOUND240,1:PR1NT©97,"BY REAL 

LIFE SITUATIONS WHICH *j 
370 GOSUB4ie0 

380 SOUND.340,liPRINT"&l62 1 "ABK CR 
BATED BY THB COMPUTER."; 
390 FOR D=1T0500:NEXT:SOUND140, 1 
400 IF WKEYS=""THEH400 
410 FOR X=0rO63:SETCX,0,4):SET(X 
,31,4);N£XT 

420 FOR Y^0TQ31:SETC0.Y»4>:SET(6 
3,Y,4);NEXT 

430 SOUBTD24),l:PRINT«33." THE 
ALL-ORDINARIES INDEX "; 

440 FOR D=liU5U0':NEXT 

450 SOUND240, 1:PRINT«97," CHAN 

GES VITH EVERY TURN. "j 

460 FOR D-lTO50Q;NEXT 

470 SOUND24Q, 1 : PR INT® 161," THE 

GAME ENDS WHEN YOU ARE "j 

480 S0UND24Q,1;PRINT«193,"A MILL 

10NA1RE. . -.OR BANKRUPT! I"; 

490 SOUND140.1: IF 1HKEY*= ,,M THEH4 

90 

500 CLS:FOR X=0TQ63;SET(X,O,8):£ 

ET<X,31,8>:NEXT 

510 FOR Y=OT031:SET<0,Y ) 8>:SET<6 

3,Y,8):MEXT 

520 PRIBTG65," GOUD LUCK AND GO 

OD EARNINGS"; 

530 PR1MT8161," BUT WATCH Ol 

T FOR THE"; 

540 PRIHT(S420. "PRESS <SPACE> VHE 

B READY"; 
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550 PRINT9234,"bear narket", 

560 IF IIKEY*<> ,, "THEI610 

570 FOR D=1T0200:HKXT 

580 PRINT$234,"BEAR XARKET" | 

590 FOR D=1T0200:HEX- 

600 GOTO550 

610 CLS 

630 ':-IHIT!ALIZES ViLUES AMD 

STRINGS 
630 XX=149 
640 AD=0 
650 DV=800 
660 X=H 
670 DA^Q 
680 AOIOOOOO 

690 DIM S$OC),SY$<X>:DIK BV(X>,3 
0(XJ,CV(I) 
700 FOR T=1T0 X 
710 DATAAH-RAIL, JOHN SHEARER, ACl 

PLASTICS. CSR.ESSO-BHP, ALLIED MI 
LLC.GNJI, AVA.F.H. FAULMNO.SANT03, 
MYER.ANSETT. BHP STEEL 
720 DATAJ.C. WILLIAMSON 
730 READ 3$<T> 
740 HEXT 
750 FOR T=1T0 X 

760 DATA40.40, 25, 30,27,44, 57, 89, 
17,15,30,30, 18,55 
770 READ BV(T) 
780 JJEXT 
790 FOR T=1T0 X 

SQO DATANT.JS.AC.CS.SO.AL.GK.AW. 
FH.SA.MY.AN.BH.WM 
310 BEAD SY$(T) 
620 NEXT 
630 FOR T=1T0 X 

640 DATAO.O, 0,0, 0,0, 0,0. 0,0,0,0, 
0,0 

850 READ S0<T> 
860 HEXT 
870 FOR T=1T0 X 
880 BEAD CV<T> 

890 DATA40, 40,25,30. 27, 44, 57, 89, 
17,15,30.30,18,55 
900 NEXT 
910 CLS 
950 INPUT" WOULD YOU LIKE TO SEE 

YOUR PORTFOLIO <Y/N)'\ P* 

970 ' 

1000 IF ri- ,, Y"TIIEN13^0 
1010 CLS 

1020 FOR S=100TO200STEP10 
1040 NEXT 
1050 IIPUT-WOULD YOU LIKE TO BUY 

STOCK" ; Y4 
1060 IF YSO"Y"THEN1420 
1070 CLS2 

1110 PRI NTTA B C 12 >" BUYING" 
1120 FOR T=1T0X 

1130 PRINTS* <T>TAB<20)SYS(T)TAB< 
24)"S"CV(T) 
1140 NEXT 

1150 lNPUT"STOCK SYMBOL PLEASE"; 
E* 

1160 FOR I=1T0 X 
1170 IF ES=SY*<I)THE81210 
1180 MBXt 
1190 CLS 
1200 GOTO105O 
1210 CLS3 
1250 PRIBT-HOV KAHY SHARES OF 

"£S(i>;: IHPUTV 
1260 AC=AC-V*(CVU>>-30 
1270 IF AC<n HEN 1670 
1280 SO(!)=SO([>+V 
1290 V=0 
1300 CLS 
1310 GOTQ970 



1320 CLS 

1360 PRIHT"CASH"TAB(22>"* , AC 

1370 FOR T=1T0 X 

1380 IF SQ<TXITHEN1400 

1390 PRIHT SSa^SOmTAB^a)"*'" 

CVCT) 

1400 NEXT 

1410 GOTO1050 

1420 CLS6 

1460 INPUT" WOULD YOU LIKE TO SEE 

YOUR PORTFOLIO" ; P* 

1470 IF P*="Y"THEN1870 
1480 INPUT" WOULD YOU LIKE TO 3EL 
L STOCK" ; YS 

1490 IF YSO"Y"THEN1960 
1500 CLS 

1510 PR1HT TABUIV'SELLING" 
1520 FOR T=1T0 X 

1530 PRINTS$'T)TAB(20)SY$(T)TAB< 
24)"*"CV<T) 
1040 NEXT 

1550 INPUT" STOCK SYMBOL FLEASE"; 
E$ 

1560 FOR I = 1T0 X 
1570 IF E»=SY*CI)THEN161C 
1580 HEXT 
159C CLS5 
1600 G0TO1480 
161G CLS5 
1620 PR I NT" HOW MANY SHARES OF 

"SSU);: INPUT V 
163C AC=A<>V*(CV(I))-40 
1640 SO(I)=SO(I)-V 
L65C IF SOUX0THEH177Q 
1660 G0TO1420 
1670 CLS4 

1680 PR I NT" NOT ENOUGH CASH TO BU 
V."; 

1690 FOR D=1T0500:NEXT 
1710 PRINTe64,"THIS SALE IS CANC 
ELLED, AND YOU HAVE BEEN FIN 

ED S500 FOR OVERSPEND: IG! !" 

1715 FOR S=1T02Q:SOUND1,1;SOUND1 
0,1:91X1 

1720 AC=AC*V*<CV<I>>-500 
1730 G0TO910 
1770 CLS8 

1780 PRINT" YOU SOLD STOCK YOU D 
ON' 7 OWN!!" 

1790 FOR D-lT0500;NliXT 
1800 PRINT:PRINT" IT'S ILLEGAL 
TO DO THAT!!" 
1810 FOR D=XTO5O0;HEXT 
1820 PRINTS 160," YOU GO TO PRISON 

FOR FIVE YEARS!" 
1830 FOR D=lTO5O0:NEXT 
1840 PRINT5283," YOU LOSE YOUK 
ASSETS, YOUR FK1EMDS. AND 

THE CAME!!" 
18b0 SUUND64,8:SOUND64,6 SUUNLK>4 
,2:SOUND64.8:SOUND95,6:S0U»D87,2 
: SOUND87 , 4 : SOUND64 , 4 : S0UHD64 , 6 : S 
OUND38,2:SOUND64,12 
I860 GOTO1860 
1870 CLS5 

1880 PR1NT"CASH"TAB<22>"S"AC 
1890 FOR T=1T0 X 
1900 IF SO<TXirHEN1920 
1910 PRINT S$<T>.SO(T>TA3(22)"S" 
CV<T5 
1920 NEXT 

1930 PRINT"VOULD YOU LIK= TO SEL 
L STOCK?"; IKPUTYS 
1940 IF Y*="Y"THEN1500 
1950 CLS6 

1960 IF DD=1THEN2020 
1970 DIK ASCXX) r CAaX>,C(XX) 
1960 FOR TslTO XX 



1990 READ A$<T>,CAiT),Ca> 

2000 NEIT 

2010 DD=1 

2020 CLS6 

2030 FOB T=1T03 

2040 N=KND(XX): IFN=0THbN N-l 

2050 PRINT A$(N) 

2060 CV'CA(N)>=CV(CA<N)>+C(N) 

2070 NEXT 

2080 ' 

2090 A=BND(-TIHER);A=RND<3> 

2100 IF A-2THEN2260 

2110 IF A=1THEN2330 

2120 PR:NT"NIXED MARKET"; 

2130 SOUND150.3 

2140 M=RND<2) 

2150 IF M=1THEN221U 

2160 DW=DW+5 

2170 FOR T^ITO X 

2180 CV'T>=CV<T>+5 

2190 NEXT 

2200 GOTO2390 

2210 FOR T-2T0 XSTEP2 

2220 CV(T>=CV(T)-5:IF CV(TX5TH£ 

HCV{T)-5 

2230 NEXT 

2240 DW=DW-5 

2250 G0TO2390 

2260 PRINT'*BULL MARKET"; 

2270 £OUND200,5 

2260 D=RND<3>;DW=DW*5+D 

2290 FOE T-1T0 X 

2300 CV<T>=CV<T>+2 

2310 NEXT 

2320 GOTQ2390 

2330 PRI«T"BEAR MARKET"; 

2340 SOUND50.5 

2360 D=RND<4):Dtf=DW-4-D 

2360 FOB T=1T0 X 

2370 CV«*Ti=CV<n-5: IFCV<TX57HEN 

CVCT) =5 

2380 NEXT 

2390 PRlHT©355,"all ordinaries A 

T. . .";:PRINT<?377,DW; : PR1NT0448, " 

PRESS AHV KEY TO CONTINUE"; 

2395 EXEC44539 

2400 IF ACO0000000THEN2480 

2410 FOR X=1T015:CLS RND<8);PRIN 

T«192," END OF GAME ":S 

OUND X*15, 1 

2430 NEXT 

2440 CLS2:PRINT®96." FINAL A 

SSETS AMOUNT TO; -" 

2450 PRINT: PRINT" i*'A 

D 

2460 PRINT" IN ONLY "DA" DAYS OF 

TRADING!" 

2470 END 

2480 FOR T=1T0 X 

2490 IFCV(TX1THEN CV(T>=1 

2500 NEXT 

2510 l$=XEYS 

2520 AD-0 

2530 FOR T=1T0 X 

2540 AD=AD+<SO<T>*CV<T>) 

2550 NEXT 

2560 AD^AD+AC 

2570 DA=DA+1:JF DA>100THEN2410 

2580 CLS5 

2590 PRINT«130,"YOUR ASSETS ARE 

$"AD; 

2600 PR1NT(«390,DA"DAYS OF TRAM! 

G."; 

2610 EXEC44539 

2620 GCT0910 

2630 DATAROAD FREIGHT TOWN, 1,-4 

2640 DATADQCTORS DENOUNCE ASPIRI 

N,9, 5 
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2650 DATAVORLD SUGAR SHORTAGE, 4, 

8 

2660 3ATASTEBL IMPORTS UP, 13,-7 

2670 DA1ANEW PLAY A SUCCESS, 14, S 

2680 JATATHEATRE TICKET SALES UP 

,14,6 

2690 DATA747 CRASHES-KILLS 200,1 

2,-10 

2700 DAT AGAR SALES INCREASE, 7. 5 

2710 DATAFARMhRS SPENDING LESS, 2 

,-7 

2720 UATACH1RA BUYS TRACTORS, 2,8 

2730 DA1ADENTIST3 DENOUNCE SUGAR 

4 ™5 
2740 DATAVORLD SUGAR GLUT, 4, -9 
2750 DA1AHEX1C0 V1HS LPG SALE TO 

lHIMA, 10,-10 
2760 DA7AEI.ECTRICITY USE UP, 10,7 
2770 IJATARETAIL SALES DOVN, 11,-5 
JjV60 DAIAHAK1NE RADIO SALES UP, 8 

,b 

2790 DATAVEHICLE BUILDERS ON STR 
IKE. 7, -7 

2600 DATATST BUYS ■ SUPERTRUCKS' , 
1.5 

2810 DAT A MORE FREIGHT BY ROAD, 1, 
4 

2H20 UATAMEV DRUG IS BANNED, 3, -8 
2830 DATAGOVERNMENT OK'S PCB USE 
,3,7 - 

2&40 DATAALCQHQL FUEL FAUS.3,-1 


2050 DATASTEEL EXPORTS DOW, 13,- 
7 

2860 DATASTEEL EXPORTS UP. 13. 5 
2870 DAI AGAR IMPORTS UP, 7,-5 
2880 DAIALAR SALES SLUMP, 7,-7 
2890 DATAOPEC CUTS PRICES, 5, -8 
2000 UATACAP TRAVPI. IIP.5,5 
2910 DATACHRISTMAS SALES UP, 11,8 
2020 DATAOHBHICAL POISON IN BREA 
D.6.-7 

2930 DATADOG FOOD SALES OP, 6, 5 
2940 DATAUTILITY RATE INCREASE D 
EH I ED, 10,-5 

2950 DATAAIR TRAVEL INCREASES, 12 
.8 

2960 DATAAVA EARNINGS UP,fi,7 
2970 DATADROUGHT BROKEN 1M ALL C 
TArES.2,5 

2yau DKTACH1U BUYS LPG.10.10 
2990 DATAKUWA1T VANT3 FARH MACHI 
NBKY.2,10 

3000 DATASPACE PROGRAM NEEDS COM 
PCJTERS.8,7 

3010 DATAVILLIAMSONS STAGS 'EVIT 
A', 14, 10 

3020 DATAMOVIE ATTENDANCE DOVN.l 
4.-7 

3030 DATAFROZEN FOOD SALES UP, 6, 
4 
3040 DAlASAUDIS LOVER OIL PRICE, 

5, -a 

3050 DATASAUDIS RAISE OIL PRICE, 

5,8 

3060 DATAJAPAN LIMITS CAR IMPORT 

S.7,-10 

3070 DATACUBA SUFFERS m*niC.HT.4. 

10 

3030 DAT ANEW INDUSTRIES SEED POW 

BR, 10,7 

3090 DATAV1DEO PLAYER SALES UP, 1 

4,8 

310C DATAVILLIAMSON EARNINGS UP. 

3110 DATAACl INVENTS NON-POLLUTA 

NT SOAP, 3.7 

3 12D DAT ANEW PLASTIC UAPI0EROUS,3 



3130 DATAFAULDING INVENTS NEW HE 

DICINE.9,9 

33 4 DATADOCTORS DENOUNCE MEW DR 

UG,y,-9 

3150 DATANEW DRUG CRIPPLES INFAN 

T.9,-13 

3160 DATAOVER COUNTER DRUG SALES 

UP, 9, 6 
3170 PATAGEN. MILLS BIDS FOR ALL1 
ED MILLS, 6, 10 

3180 DATAALIIED KILLS WON'T SELL 
,6,-10 

3190 DATAVHEAT SALES HP, 2, 5 
3200 DATAKELLOG BUYS LOCALLY, 4,8 
3210 DATASUGAR SALE TO KUSS1A.4, 
12 

3220 DATACOKPUTER SALES UP.8,6 
3230 DATAFOREIGN VCR SALES UP, 6, 

6 
3240 DATA01L SHORTAGE CLAIMED, 5, 
10 

32'iO DATANEW MUSICAL RESOUNDUG 
FLOP.L4.-S 
3260 DATAWEATHER REDUCES THEATRE 

SALES, 14,-5 
3270 DATANEW TV SERIES VIEWING U 

P. 14.5 

3260 DAUVILLIAMSOR BIDS FOR ABC 

,14, 10 

3290 DATAGOV'T WON'T SELL ABC, 14 

."5 

3300 DATAPIPELINE TO BE BUILT, 13 

,6 

3310 DATACOOPER BASIN RUNNING 10 

V, 10,-6 

3320 DATASMALL MOOHBA WELL DRIES 

HP, 10, -6 
3330 DATftSA NEGOTIATES CHEAPEN G 
AS, 10,-b 

3340 DATAACl SUED FOR FAULTY PLA 
STIC, 3, -10 
3350 DATA INDONESIA WANTS ALCOHOL 

FUEL, 3,5 
3360 DATAACl INVENTS NEW PLASTIC 
,8.12 

3370 DATARETAIL HOLIDAY SALES OF 
F, 11,-5 

8360 DATAANSETT MUST BAY BACK TA 
XES, 12,-5 
3390 DATAANSETT INTRODUCES LOWER 

RATES, 12,5 
3400 DATANAVY NEEDS NEW SHIPS, 13 

,5 

3410 DATAAWA SALES INCREASE, 6,8 
3420 DATAGMH OFFERS REBATE, 7.2 
3430 DATAGMH OFFERS REBATE, 7,0 
'3440 DATACONSUMER SPENDING DOVH, 
11,-5 
3450 DATAPLAGUE OF CANE TOADS IB 

QLD,4,-8 
3460 DA-.ANEV BREAKFAST CEREAL SU 
CCESS.6,7 

3470 DATAPLAST1CS EXP0I.S10N KILL 
S 13,3,-10 

3480 DATAFAULDING EARNINGS DOWN. 
0.-5 

3490 DATAFAULDING EARNINGS U?,9. 
5 

3500 DATANEV WILLIAMSON SOAPlE S 
UCCESS.14, 10 
3510 DArASTEEL WORKERS STRIKE, 13 

i -5 

3520 DATAANSETT INCREASES FARES, 

12,5 

3530 DATAMYER EARNINGS UP, 11, 5 
3540 DATASAHTOS HEEDS $100M LOAN 
. 10, -5 



35&U DATAFAULDING BUYS DHA.9.10 
3560 DATAAWA BUILDS SEW RADAR SY 
STEM, 8, 5 
3570 DATAGMH ANNOUNCES REBATE, 7, 



3580 DATAALLIED MILLS EARNINGS S 

TABLE, 6, 5 

3590 DATAESSC LOWERS PRICES, 5, -5 

3600 DATASUGARLESS FOOD SALES UP 

,4,-8 

3610 DATAACl INVESTS BEW GLASS, 3 

,12 

3620 DATAFARMERS RAISING PRICES, 

2,5 

3630 DATARAIL FREIGHT INCREASES, 

1.-5 

3640 DATATNT MAY SELL OUT, 1,-10 

3650 DATASHEARER SEEKS TARIFF PR 

OTECTEON.2,-10 

3fc.b0 DATAACl MAY BUY OUT PILKIHG 

TON, 3,0 

3670 DATASUGAR STOCKPILE INCREAS 

ES.4,-8 

3680 DATAHOLtDAY ROAD TRAVEL UP. 

5,5 

3690 DATAFAMILiES EAT AT HOME LE 

SS.6,-5 

3700 DATACAR SALES HIT SLUMP,?, - 

9 

3710 DATACAR SALBS SLIDE FURTHER 

,7,-10 

3720 DATACAR IMPORTS SLIGHTLY DO 

VN.7,6 

3730 DATAAWA EARNINGS HIT NEW HI 

GH,8,10 

3740 DATAAWA IMPROVES RADAR, 8,5 

3750 DATAJAFANESE RADAR INSTALLE 

D IN QLD, 8.-5 

3760 DATATYLENOL SCARE EXISTS. 9, 

-8 

3770 DATAGAS PRICES INCREASE. 10, 

a 

3780 DATACLCTHISG SALES INCREASE 

, 11.1 

3790 DATARETAIL SALES UP 30Z.11. 

10 

3800 DAT APR ICE WAR DECREASES AIR 

FARES, 12.0 
3810 DATA1HDUSTRIAL TrtNKTRllCTIOI 

UP, 13,8 
3820 DATAPOOK MOVIE ATTENDANCE. 1 
4,-8 

3830 DATATV SALES DOWM,S,-8 
3840 DATAJAFANESE TV SALES HP, 8, 

-8 

3350 DATAIMPORTED CB RADIO SALES 

UP, 8, -5 
3860 DATA NEW WILLIAMSON TV SHOW 

FLOPS, 14,-1 
3B70 DATALARGE BLOCK OF AWA SOLD 
,8,-20 

3880 DATATRABSPORT WORKERS STRIK 
E.1,-6 

3690 DATADROHGHT LOWERS WHEAT YI 
ELD, 6,8 

3900 DATABANK LOANS TO FARMERS D 
ROP.2,-8 

3910 DATAACl MUST CLEAN DUMP SET 
E.3.-5 

3920 DATA INDIA BUYS SUGAR.4,8 
3930 DATACUBA WINS JAPANESE SUGA 
R SALE 4 ~5 
3940 DATAOPEC OIL PRICES DROP, 5, 



continued next page 
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MC-10 



by Chris Deacon 



Id this gone Chris gives 
ue a nixed up Alphabet on 
one line Kith a completed 
alphabet above it. The 
object is to nave all the 
letters into the correct places 
to complete the alphabet. Vhen 
this is done the gana is 
conpleted. Chris states that his 
bast number of hcvgs Is 211. 
See if you can beat that! 

Th« Listing ALPHALPi 



e REM fllPHR LERP BY 

CHRIS DEflCOH 

I REM 

10 CLS5-D1M H< 27> 

15 GOSUE<720:PR!HTei92,-" 

20 kRIHT*S€. "•") -FOR 1"1 TO 26 

33 fi< I >=I+64PRlHTCHRi<fl< I )>i 'HE 

XT R<27)=32 

35 REM***************):********** 

39 REM MOSES'OflKFCRC* SHUFFLE 

49 FOR Z*iT02?<L»RND<Z>TK"*<U> 

50 fl<L>=fl<Z>'R<Z>=K'NEXT 

60 GOSUB100>&OTO20O 
S© REM************************** 
100 PRlHTeiSO, ""J- "FOh 1-1 TO 2? - 
FRIHTCHRt<A< 1 >>) i HEXT- RETURN 

196 Rtnxxxxxxxttttxz-xixxixxxxxx* 

200 PRIHTG201 . "FROM- ; ■ INPUT FJ 
210 PR1NT&2I1 ,"T0";' INPUT Tt 
215 IF F*<"«" OR F«>"2" OR T*<"e 



■' OR r*>"Z" THEllGOSL«e7O0^G3TO2OO 

??f\ F=flSC(FI>-63 T=RSC<T»>-€3 

;/^p» H=ftBS< F-T >i IF MO 1 RHD M< >2 

OR R<T><>32 THEHCOSUB700GOT0200 

260 fK T>-RKF>'R<F)-32 

265 CT«CT+I »PRIHTtli< "MOVE"iCTi 

270 REM**t******t*tt***!l*tt:***** 

300 COSUOIOO'FOR K=l TO 26 

SID IF fl<X)OX*G4 THEN 206 

320 NEXT 

32 5 REM************************* 

330 PRIHT9195."V0U SOLVED 11 IH" 

jCTj"N0VES"; i pRlHTe2*7."WELL DOH 

E" > 'PRJNTtt446j "*j El 10 

700 FRIHTC£45j fl INVALID HOVE" J 

VI n FOP DE-1 TO tOO-MEXT DE'PRIN 

715 REHTITTTTT-nnTlttt********* 

720 CLS5'X=4.Y=M i-fl*C 1>»"H 1 1 i* ! 

T\*t, 2>»"1 0001" 'R*C 3> = " lOOeO" fit (4 

>-="niio- 

7?0 e*c. 1 )="1221222" B*<2 >="13343 

31- ; |:*<3)»"222l222" B*< 4 >="33333 

31" «B*C5>»" 1221333" C0107?0 

?49 fOp 1*1 TO LEHXB*) 

7<t5 B=VfiLCHn>*<0*. 1. S >) 

rOB FOR T«l TO 7 

755 U-VRL < H 1 \>t< B*< B ) • T . 1 ) > 

760 FOR R-l TO 5 

765 V<=VRL<MII'*<H*<U>/R* 1 >> 

770 IF V=l THEH PESETCK,Y> 

775 K«X+l ■«HEKT»V-V*l 'H-X-3 

7©8 ilEXT ' Y«l I ' X=X-»6 ' HEXT RETURH 
790 B**"14531" GO9Ue740 
795 F)t="4215-'X=X+3G0SL«B74O 
7-98 FOR DEM TO 3000 ►NEXT DE'X=? 

000 REM*M'**¥«* ***'** ******■*■* M M 
S18 CLS-PRIIITeiO» "RLPHH LERP"'PR 
1MI 



P-20 PRIMT"RLPH« LERP MILL PRESER 

T YOU WITH"; -pRIHT-ft SHUFFLED RL 

FHITPET WHICH YOU" 

030 PRINT'HUST UHSHUFFLE BY SLID 

IHG IHTO^rRIIIT"THE EMPTY SPFlCE 

OR BY JUMP IHG" 

B4* PRIUT-OHE LETTER INTO THE EM 

PTY SPACE" 

050 PRIHT'TO HOVE LOOK RT THE LE 

ITER Y0U"'PR1HT"WHHT TO MOVE THE 

H TYPE IN THE" 

86-0 PRIMT"LETTER OBOvE IT THEII P 

PESS EHTER-i 

f;7R PR 1 HI H THEII TYPE III THE LEITE 

R ABOVE" >PRIHT"THE SPACE WHERE Y 

OU HftMT IT TO" 

&80 PRIHT-LRIIO THEII PRESS EHTER. 

IT SHOULD" PR1HT"EHD UP LOOK IMG 

LtKE THIS" 

Spa PRIMV'PRESS EHTER TO COHTIHU 

Z"r -HIPUIC'* 

?00 CLS5 FOR 1-64 TO 90 PRIHT46C 

♦ X..CHPKI )1 PRlHTei3etX.CHR*(l + l 

>= =X=X*1 >NEXT>PRlllTei56. ■ "j =PRI 

HT&192,""' 

9JB PKIMT'THE PROGRAM HILL EHt> W 

HEH IT IS-'PRIHT-IH ALPHABETICAL 

LY ORDER AHt> THE" 

?20 PRIIIT"&PRCE IS RT THE EHP GO 

00 LUCK"' FRUIT FRIHT PRINT 

<r:-:0 PPIHT<?3?0. "PRESS EHTER TO ST 

RPT"/ IIIPUTOtCL^'RETUPH 

?35 FCEMWtl tt-RUTHORS HOTE******* 

<»40 REM MY BEST SO FAR 211 MOVES 



O 



fiUSTRAimn STOCK ITIfiRKtT SimUlflTOR 



continued from previous page 

3950 DATAGKH RECALLS '84 CAM IRA, 

7,-10 

3960 DATASHALL CAR SALES UP.7,d 

3970 DATAJAPAMESE RADAR INSTALLE 

D AT HEV AIRPORT, 8, -5 

3980 DATAFAULDI8G DISCOVERS 'AID 

S' VACCIHE, 9,10 

3990 DATANEV 'AIDS' VACCINE KAY 

CAUSE CAHCER.9,-12 

400O DATAFAULDING IHVEKTS IHDUST 

RIAL SUPER GLUE, 9, 12 

4010 DATAENVIRONKENrALISTS BLOCK 

REV GAS PIPELINE, 13,-5 
4020 DATAPOWER RATES UP 10%, 10,8 
4030 DATAJET CFASH AT KASCOT KIL 



LS 200,12,-10 

4040 DATA5000 STEEL WORKERS LAID 

OFF, 13,5 
405C DATATVO MORE STEEL PLANTS C 
LOSE, 13,-9 

406C DATASTEEL EXPORTS UP, 8, 8 
4070 DATAJAPAN BUYS PROCESSED ST 
EEL.8,5 

4080 DATAVILLIAMSONS SUED FOR CO 
PYR1GHT BREACH, 14,-10 
4090 DATAMYES BUYS SURUHBAH CENT 
RE.11,5 

4100 DATAAVA LOSES PATEB? 1IFR1B 
GEMEMT SUIT, 8,-12 
4110 DATAAFRICA HEEDS HEV TBACTO 
RS.2.8 

4120 DATACHEVINC; GUM SALES UP, 6, 
5 



4130 DATANEV SATURAL CEREAL SALE 

S UP, 6, 5 

4140 DATACOLOURED CAHDY CEREAL S 

ALES UP, 6,5 

4150 DATAMEV CEREAL COMTAlUS CON 

TAMIMAMTS.6,-5 

4160 DATiBIG SUGAR SALE TO EEC, 4 

p8 

4L70 DATABIG CAR SALES DOVK.7,-7 
4180 FUR D-1T0500:NEXT:RETURB 



o 
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IDEA OF A 



FRACTION 



32K ECD 
EDUCATION 



by Bob Home 



IDEA OF A FRACTION is the 
first of a series that I 
intend to develop on common 
fractions. 

The main aim of the program Is 
to reinforce visually the work 
previously done on equivalent 
fractions (i.e. fra&tloa* whieh 
have" a different denominator, 
but have the same value, such as 
one-half and two fourths > This 
part was written first and the 
athpr sections added as I saw 
the need arising In the 

classroom. 

The program therefore is 
suitable for mid and upper 
primary. 1 du nut claim it to be 
THE definitive program on this 
type of work but do claim after 
testing, using the progran and 
re- testing that it has been 
successful in my class. 

The M. L. portion of the 
program is direct fron 'Chatwin 
Manor" so If you have that 
program on tape or disk, you can 
t.afce the DATA statements from it 
rand RENUHber it to suit. 



The Listing: 

G0TO10 

3 FFKtt*****t***t*t*t*t*m***** 
2 REHt IDEA OF A FRACTION * 
3JIEM* COXXOH AHD IHPROPER * 

4 REN* FRACTIONS * 

5 REM* SIMPLE * AHD - SUMS * 

6 REHt EQUIVALENT FRACTIONS t 

7 REM* BY BOB HORNE * 

8 Rsnm**mm*mm*m*mt 

9 SAVE"80A:3":END 

10 CLSRND<8>:PRINT®264,"JUSr ONE 
MOHEHT."; : PR1BT9328 , "NOV POKIHG 

M.L."; 
20 2=0: CLEAR400. 31200: FOKX=31201 
T032451: READA: Z=Z*A: POKE*, A: NEXT 
X: IF Z052759 THENCLS:SOUHD200, 1 
0:PSrm256, M DATA ERROR. PLEASE 
CHECK.": END 

30 CLSRNB(8):PRIST<?235, "FRACTION 
S. M ;:PRINT<?297,"BY BOB HORNE."; 
: F0RX=32452TO32481: READA*: POKEX, 




VAL<"MrMAS):NEXTX:EF PEEK(lBfl) = 

1 4. THENPOKE32453 , 30 : FUKE3247' T , 37 

;POKE32478,224 

40 DBFUSRO=31201:PS="L20T20P20 M ; 

RE$<1)="VELL DONE!": RES <2>="GREA 

T!":RE$;3)="C00D VORK! " : RE*<4>=" 

EXCELLENT! ": RE* (5)=" TERRIFIC!" :D 
[NAR<6),RA(10) ( SB<7> 

50 PKODE4.1:COLOR0.5:PCLS:DRAV"B 

M4. 0NG3HF3D9" : GET<0, 0>- <8, 10J , AR 

,G;PCLS0:L=32 

60 DFAV'C5":CIRCLEU2,1Q>,3 1 ,1,, 

25, , 75: CIRCLE <31 , 11) ,2, , 1, . 75, . 2 

5:DRAV ,, BM13,13R1SBM30,9L3UL4DL5U 

2NL5H2LNF2KL6R4UL10" : PAINTU2, 10 

> 

70 GETC9. 4)- (34,14), SB.G: A=R*D(- 
TTHER):PCLS;DRAV"C0'*:LIS"E<0 t 132) 
- (255, 191) . PSET, BF: FORNU=lTO10: G 
OSVB450:HEXTBUiPRIIT«363 t "STAND 
BY." t : PQRITO-11TQ30; ■GQSUD450: NEX 



TBU:GOT0470 

79 RE******* INPUT A NUXBBR****** 

80 1N3=IBKEY1 

90 IN$=IBKEYS:IF IJS="" THBN10C 
ELSEi30 

100 BXEC32452:LIHE<X+2 I Y)-(X+6,Y 

+6) , PRESET, BF: PLAYP4: EXEC32452: L 

I NE <X+2, Y>- CX+e, Y+tW , PSET, BF: PLA 

YPS : C0=C0+2 

110 IF C0=32 THENCO=0 

120 GOTO90 

130 IF ASCUBSX49 OR ASC(IN4>>5 

7 THEN&0 

140 C*=lN*:GOSUB190: RETURN 

149 RENmSORRY VRONG ANSVER**** 

150 Xl=X:Yl*Y : X=X+16:CS="SORRY": 
LIBE(X-2.Y-2)-CXt42.Y+10),PSRT,B 
F | DRAW" C5" : GOSUB 190 : GOSUB4 00 : DRA 
V , C0*':LINE(X-2.Y-2)-<X442,YU0), 
PRESET, BF:X=Xl:Y=Yls RETURN 

159 REKWENTER> FOR NEXT PAGE** 

160 Y=180:LINEC0,Y)-C255,Y+12),P 
SET . BF : DRAVC5" : X=48 : Y=Y+3 : Ci= " P 
RESS ENTER TO GO OH":GOSUB190: IB 
$-IHKEYi 

170 IR»=IHiCEY*: IF IH»OCHR4<13) 

THR»170 

180 DRAV'CO 1 ' : RETURH 

189 REH*****PRINT TO SCREBS***** 

190 P0KE220,X:PORE221,Y: IF LBN (C 
$>< = L THEN A»-C*:GOTO240 

200 FORT=L T01STHP-1MF JIIW<C*, 
T, 1>=" » THEB220 
210 REXTT 

220 A$=LBFT*<C*,T>:GOSUB250:C*=B 

IGHTS(CS, <LEN<CJ>>-T):GOTO190 

230 RETURN 

240 B*=USR0<At): RETURN 

250 B$=USE0<A*):Y=Y* 10: RETURN 

259 REH**FEACTION AS RECTAIGLE** 

260 B=RMD(6>+1:A=RND<B-1> 

270 C=60-((B-2)*5>:FORZ=1TO B:L1 

HE(CZ-l>*CU0,0>-<Z*C+10,4O),PSB 

T, B: NEXTZ 

280 FORZ=HO A:PAINT<Z*C+5,1Q):I 

EXTZ 

290 FORZ=1TO A-l: LI NE<Z*C+10, 0)- 

(ZXC+10,40), PRESET: NEXTZ: RETUR8 

299 REH***fRACTIQN AS CIRCLE**** 
ADAPTED FROM "THE OLD FASHIONED 
CLXK"**mUST, RAIHBOV********* 

300 B=RND<6>+l:A=RND(B-l):RBX**t 
IF A->B THEN300 

310 G«=23:R=23 

320 ST=360/B: CIRCLE (F,G), 23 

330 FORD-1TO B: Al- <225+D*ST)/57. 



50 



29577951 

310 Q<D) = IHT<R*C0S(A1)*F+.5):V<D 

)=lHT<R*SIN(Al)+G+.5) 

350 LIBE<F.G)-(Q<D),V<D)),PSET:H 

EXTD 

350 FORD=0T0 A-l: Al=<230+D*ST)/5 

7. 29577951 

370 Q=INT<(R-5)*CQS<A1)+F+.5):V= 

INT(<R-5)*SIH(A1)+Gf.5) 

33 PAIHT<Q,V):NBXTD 

390 FQRD=1T0 A-l: LINE<F, G)-(Q(D) 

, VCD) ) , PRESET: BEXTD: RETURN 

399 REN*********A DELAY********* 

400 FORZ=lT01O00:SEXTZ:RETURJ 

409 RgH****PFIBT A FRACTION***** 

410 A1$=STRS(A):B1»=STRSCB);A1S= 
RIGHT»(A1»,LBH(A14>-1>:B1*=RICHT 
*<B1S,LEN<B1$)-1) 

420 X=XI:Y=Y1:C4=A14:G0SUB19G:LI 

HE(X+l,Y+9>-(X*6,Y+9) ,PSBT:Y=Y+1 

l:CS=RU:r.aSURl90 

430 Y=Y-6: RETURN 

439 REHJXPUT A SHIP ON SCREEH*** 

44-0 IF BU-1 THEHB=13&+RHIM41>:G0 

SUB4QQ:PUT(6,B)-<31.B+10),SB,PSE 

T: RETURN BLSBFORZ=1TO 32-CO:BXEC 

32452: IEXTZ 

450 A=(HU-1)*11.5+6:B=138+RHD<41 

):F0RZ=B-1 TO B+11:1P PPOIIT<A-i 

,ZX>0 THEBZ=B+11: HEXTZ :GOT0450 

ELSE HEXTZ 

460 PUT<A,B)-(A+25,BH0),SB,OR:R 

ETURH 

469 REH******CHOOSB A TYPE****** 

470 L=32:DRAVCO":SCREEH1,1:X=0: 
Y=10:C*="1. IDEA OF A FRACT10B." 
;G0SUB190:Y=25:C»= M 2. COKNOB AHD 

IMPROPER" : GOSUB190: X=24: Y=35:C» 
="FRACTIOHS. " : G0SUB19C 
480 X=Q;Y=50;C*= n 3, ADDITION AID 

SUBTRACTQH" I GOSUB190 : X=24 : Y=60: 
C»= M TO OHB. (SAKE DBHOHI BATOR)"; 
COSUB190:X=0: Y=75:CS="4. BQU1VAL 
EBT FRACTIOHS.":GOSUB190:LIHB<0, 
105)-<255,117),PSBT,BP:Y=108:DRA 
V"C5" 

490 X=42:CS=" CHOOSE A HUKBER (1 
- 4) M :GOSUB190:IHS=IIKEY* 
500 IH*=IHKEY$: IP lB«s" H THBBBXB 
C32452:GOT0560 ELSE IP ASCCIIIX 
49 OR ASC<IH»>>52 THBHEXBC32452: 
COTO500 

510 TY=VAL(INS> 

520 IF TY=1 THEH C1$="1DEA OF A 
FRACT10B" ELSE IF TY=>2 THEH C1S= 
"COMNOB ABD IMPROPER FRACTIONS" 
530 IF TY=3 THEB Cl*=" ADDITION A 
BD SUBTRACTION TO 1" ELSE IF TY= 
* THEHCIS^" EQUIVALENT FRACTIONS" 
540 GO3UB5000:GQGUB40Q:rCLS:OH T 
T GOS0B1000, 2000, 3000,4000 
550 X=48: Y=80: Ci="HEXT PLAYER'S 
T0RH. M :GOS0B190!X=24;Y=110:C*="5 
EXT PLAYER PRESS <EHTHR> .":GOSUB 
190:IBS=IHKEYS 

560 IHS=INKEY$: IF IHSOCHRSU3) 
THEH EXEC32452:GOT056Q 
570 LINE<46 ( 80)-<232,95),PRESBT 1 
BF:LIHE(24,110)-<224. 130), PRESET 

,BF:GOTO470 

999 REH***IDEA OF A FRACTION**** 

1000 F=128:A=3:B=7:CO3UB270:X=0: 
Y=60:CS=" THB LARGE RECTABGLB AB 
OVE REPRESEBTS OHB UHIT. " :G0SUB1 
&0:GOSUB400 

1010 Y=Y+15:CS="THIS LARGE RECTA 
SCLE IS DIVIDED 1HTO 7 SMALLER R 
SCTAHOLES, " ; GOSUB190 i 30SUB40Q 



1020 *=Y*L5:CS="EACH SMALL RECTA 
HGLE, THE», IS";GOSUB190: Y=Y+15 : 
C*="ONE-SBVEHTH (":GOSUB190:X1=1 
04 : Yl^Y-5: A=l: B=7:GOSUB410 
1030 X=112:C*=") M :GOSUB190:0OSUB 

400 

1040 X=0:Y=Y+15:C*="3 OF THESE S 

MALL& RECTAHGLES ARE BLACK. THE 

DIAGRAM REPRESEBTS THREB-SEVEHT 

HS <":GOSUB190 

1050 Xl-216:Yl=Y-5:A=3:B=7:GOSUB 
410:X=224:C*= H )":GOSUB19O:GOSUB4 
00 

1060 GOSUB160 

1070 PCLS:A=3:B=7:GOSUB310:X=Q: Y 
=70:CS="THIS CIRCLE RBPREEBBTS 
HE UNIT. TBB CIRCLE IS DIVIDED I 
HTO SEVEH PARTS. THREE OF THESE 
PARTS ARE BLACK. THE FRACTIOS OF 
THE CIRCLE WHICH IS BLACK IS TH 
REE-SBVEHTHS, " ; GOSUB190 
1080 GOSUB400 

1090 Y=YU5;X=122:CS="(":GQSUB19 
0:X1 = 128:Y1=Y-5:GQSUB410: 1=136: C 

S=")":GOSUB190 

1100 GOSUB160:PCLS:X1=0:Y1=20:GO 

SUB410 

1110 COSUB400:X=24:Y=Y-4:GS= M THB 

•3' IS THE HUHERATOR l, !GOS0B190! 
GOSUB4Q0:X=24:Y=Y+10:CS= M THE '7' 

IS THE DEHOIIIHATOE ,, : GOSU310O 
1120 GOSUB40O 

1130 X=0:Y=Y+20:C*="THIS FRACTIO 
B IS CALLED A PROPER FRACTIOH OR 

COMMON FRACTIOH BECAUSE THE BUK 
BRATQR IS SMALLBR THAH THB DEBO* 
IBATOR. " : GOSUB190; GOSUB4O0 
1140 GOSUB16Q:PCLS:L1HE(0, 132>-C 
255,191), PSET, BF:HU=0 
1150 CO=0:HU=HU+l 

1160 OH RHD(2> GOSUB300, 260: X=0: 
Y=50:C*="VHAT FRACTIOH OF THIS D 
IAGRAJC IS BLACK?":GOSUB190:LIHEC 
0, 70) -(255, 72), PSET, BF 
1170 IF HU>6 THBH1230 ELSBY=Y+15 
:C**"HOV KAHY PARTS ARE BLACK?"; 
GOSUB190:X=LBH(Ci)*8 
1180 GOSUB80 

1190 IF VALUM)OA THEB G0SUB15 
0:OQT01180 

1200 X=24:Y=YH0:C*="T0TAL HUMBE 
R OF PARTS?":GOSUB190:X=LEICCS)* 
8+24 

1210 GOSUB80 

1220 IF VAL(IHS>OB THEH G0SUB15 
O:G0TO1210 

1230 LIHE<0,Y+10)-(255,YU2>,PSB 
T,BF:IF BUUO THEH X=128:Y=Y*20: 
LIHEa,Y+10)-(X+10,Y+10),PSET:GO 
TO1250 

1240 X=ie:Y=Y*15:C*= ,, HUMERATOR= 
":GOSUB190:X=LEH<C*)*8M6 

1250 GOSCB80 

1260 IF VALCIB*X>A THEB G0SUB15 

0;GOT01250 

1270 LINB(X,Y+1Q)-(X+10,Y+10),PS 

ET 

1280 IF IU>10 THEB X=128: Y=V+14: 

GOT01300 

1290 X=0: Y=Y+14;CS="DEBOKIBATOR= 
'•!GOSUB190:X=LEH(CS)*8 

1300 GOSUB80 

1310 IF VALUBSJOB THEB GOS0B15 

O:GOTO13O0 

1320 X=160;Y=Y-10:CS=RE*iRHD<5>) 

:LIIE(X~2 l Y-2)-(X+LEH(CS:*8+2,Y+ 

10) , PSET , BF: DRAVC5" : GOS0B190: DR 

AV'CO" 



1330 COSiJB440:LISE<X-2,Y-2)-(X+L 
EH(C$)*8+2. Y+10) . PRESET, BF: L IIE( 
0,0)-<255,Y+18),PRESET,BF:IF IU< 
20 THEH1L50 ELSERETURN 

1999 REM**COIlMOH ABD IMPROPER*** 

2000 F=12$;A=7;B=7;GOSUB27Q:X=0: 
Y=60;Cfc=" THIS DIAGRAM REPRESENT 
S OHE UHIT. EACH SMALL RECTAHGLE 

IS ONE-SEVEHTH. SEVEH SMALL REC 
TABGLES ARE BLACK. SO. SEVEfc-SEV 
EHTHS OF THE LARGE RECTAHGLE IS 
BLACK.":GOSUD190 

2010 GOSUB40O:GOSUB160:LIHE<0,60 
) - (255, 120) , PRESET, BF: LlBfi(G , 180 
>- (255. 191), PRESET, BF 
2020 X1^>:YU70:A=7:B=7:COSUBUO 
: X=8: Y>?6 : C*=" = r* : GOSUB190 
2030 X1=128:A=9:B=7:GOSUB410 
2040 X=0: Y=Y+30:C1=" THESE FRACT 
IOHS ARE CALLED IMPROPER FRACTIO 
NS. AH IHPROPER FRACTION IS ONE 
VHERE THE HUKERATOR IS EQUAL TO 
OR GREATER THAH THE DENOMINATOR. 
":GOSUB190 

2050 GG£UB400;GOSUB1$G:PCLS:LINE 
(0, 132)- C255. 191 ) , PSET, BF: NU=0 
2060 L=32;X=24:Y=7;C*=" IMPROPER 
FRACTIOBS":GOSUB190:DRAW"BMi75,l 
OR20SH3G3" 

2070 A=6:B=6:X1=208:Y1=2:GOSUB41 
0:X=224:Y=Y1*5:C1= H .":GOSUB190:X 
1=240: A=9: B=7: GOSUB4 10: LINE <C, 0) 
-(255,78>,PSET.B:LINEC0,22)-<255 
,25), PSET, BF 

2080 X=8: Y=27:C*="VH ICH OF THBSE 
IS IHPF.OFER? M :GOSUB190:LINE<0,3 
6)-(255,38),PSET,BF 
2090 CO=0: IM=RBD (4) : NU=NU+1 
2100 FOP2=1T04 
2110 A=PHD(9):B=RBD(8) + 1 
2120 IF 2=IM AHD A<B THBH2110 EL 
SE IF ZOIM AND A=>B THEH2110 
2130 ACZ>=A:B<Z>^B 
2140 NEXTZ 
2150 F0B2=1T04:A=A<Z):B=B<Z):X1= 

CZ-U*64*32: Y1=4 0:GOSUB410: HEXTZ 
2160 IF HUOl THEN2180 
2170 L=31:LIHE(0,7B)-(255,90; ( PS 
ET,BF:X=8:Y=92:C*="USE THE R:GHT 
AHD LEFT ARROV KEYS TO MOVE THE 
P0I»TER.":GOSUB190: Y=Y + 10:CS="P 

RBSS <EHTER> VHEN THE POINTER IS 
IB THB RIGHT POSIT10H. " :G0S'JB19 

0:LIIE(O t 90)-(255,132),PSET,3 

2180 X=32: IH$=INKEY$ 

2190 PUTa,65)-a+8.75> l AR,P3ET 

2200 1H$=1NKEY»: IF IN*=" M THENEX 

EC32452:C0=C0+1: GOTO2200 

2210 IF IN*=CHRS(13> THEH2263 

2220 LIHE<X.65)-CX+8. 75). PRESET, 

BF 

2230 IF INS=CHR»<8) AHD X>32 THE 

H X=X-64 

2240 IF IHS=CHRS<9) AHD X<204 TH 

EN X=X*64 

2250 PUT(X 1 65)-<X+8,75),AR,PSET: 

GOTO2200 

2260 L=30:V=(X-32)/64+l:IF W=1M 

THEH2290 ELSE X1=X;X=8; Y=80;DRAV 

"C5" :C»- M THAT IS A COMKOB FRACT I 

0H.":GCSUB190 

2270 GGSUB4O0:X=32:LINE(1.79>-<2 
54, 89). PRESET. BF;DR AV'CO" :C$= M PR 
ESS <EBTER) TO GO ON." : GOSUE190: 
IH4=INHEY1 

2280 IBS=INKEY$: IF IH$OCHR«(13) 

THEHEXEC32452 : CO=CO+ 1 : G0TO2280 

BLSE LIRE (0.79)- (255, 89), PSET, BF 
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:X-X1:GOT02190 

2290 FORZ=lT011:GET(X-2,39)-a+l 

0.60),KA 1 G:PLAYPS:PUT<J-3 l 39)-a 

HO, 60) , RA , PRESET: PLAYPS: BEXTZ: X 

=72:Y=ei:CS=RE$<RHD<5>;;LIHEa,Y 

-*>-CX+LEN<CS)*8,Y*9).PSET,BF:DR 

AV-C5":GOSTJB190iDRAV"C0 M 

2300 IF C0=>32 THEN CO=C0~32:GQT 

O2300 

2310 GOSUB440: LINE(l,79>-<254.89 

>,PSET,BF: IF NU-20 THEF LINE(O,0 

>-C255, 130), PRESET, BF: FETURN ELS 

E UHEU,39>-<254,77) 1 FRESET,BF: 

COT02090 

2999 REM***** + AMD - TO 1 ***** 
300-0 F=128:A=5:B=8;GOSUB270:X1=Q 
:Yl=60:GOSUB4lO:X=fl:CS=" OF THE 
RECTANGLE IS BLACK. ":GCSUB190: GO 
SUB 4 00 

3010 X1=0:Y1=60:A=3:B=8:GOSUB41Q 
:X=tJ:C*.=" OF THE RECTANGLE IS VH 
I TE . " : GQSUB190: GOSUB400 
3020 X=0:Y=105:C*="REKEHBER, EIG 
HT-EIGHTS EQUALS ONE. SO, VE CAN 
SAY NOV":GOSUB190:GOSUB400 
303O X1M0:Y1M30;A=5:B=8:CQSUB4 
10:X=48:C$="+":GOSUB190X1=56: A= 

3:3=6:GGSUB410;X»64:CJ="=1":GQSU 
B19O:COSUB4 00 

3040 X=112:CS="AHD*":GOSIIRiqO ! Xl= 
16ft: A=3 : B=8 : G0SUB4 10 : X=176 : C4=" + 

M :GOSUB190:XUlfl4:A^5:B^8;G0SUB4 
10:X=192:C»="=1":GOSUB190:GOSUB4 
00 

3050 X=40:Y^16O:CS="l-":GQSUB190 

:X:=56:Y1=155:A=5:B-8:G0SUB410;X 

=64: C*="=" : G0SUB190: Xl=72; A=3: B= 

8:GOSUB410:COStfB4QO 

3060 X=112: C$=" AND" : GOSUB190; X=l 

G8:V=160:C»— 1-":COGUB190;X1-164 

:Yl-t55:A-3:B=a:GOSUB410:X=192:C 
*= Jt =":GOSUB190:Xl=200:A=5:COSUB4 

10:GOSUB400 

3070 GOSUB160:PCLS5:LINE(0,1323- 

(255, 191), PSET. BF:KU=0 

3060 CO=0:BU=BU+1:OB RHD<2> GOSU 

B30O.26O 

3090 IFNU>15 THEN3160 

3100 X=0:Y=5Q;C*="VHAT FRACTIOS 

1 S BLACK?" : C0SUB19U : L I HE ( 193 , 55 ) 

-<199,55),PSET 

3110 X=192:Y=45:GOSUB80:lF VALCI 

K$K>A THEN GOSUB150:GOTO3110 

3120 X=192:Y=57:GOSUB80:IF VALCI 

BMO'B THEM G0SUB150:GOTO3120 

3130 LiME(0,65)-(255.68).PSET,BF 

:X=0:Y=75:C*="VHAT FRACT10B IS V 

HITE?":GOSUB190:LINE(193,80)-<19 

9,80), PSET 

3140 X=192:Y-71:GOSUB80:IF VALCI 

NDOB-A THEH COSUB150: GDTO3140 

3150 XM92:Y=82:GOSUB80:IF VAL( I 

NtlOB THEN GOSUB150:GOT03150 

3160 LIHE(0,92)-(255.95),PSET,BF 

(IF NU<6 THEN3170 ELSE IF NU = >6 

AND NUC11 THEH3180 ELSE IF NU=>1 

1 AND NU<16 THEH3200 ELSi IF NU= 

>16 THEN ON RND<3) GOT03170, 3180 

,323 

3170 Xl^O:Yl = loa:GOSUB4l0:X^96: 

CS-"+":GOSUB190: X2=110:G0TO3190 

3160 X-96;Y=113;C*="+":G0SUB190: 

X1=:32:Y1=108:GOSUB410:X2=7S 

3190 X-125:CJ="= 1": GOSUB190: A=B 

-A:COT03220 

3200 X=80jY=U3fC$=''l -»:0OSUB19 

0:X1 = 112:Y1=10B:GOSUB410:X2=142- 

A-B-A 



3210 X=128: C»="=" : OOSVB190 

3220 Y=116:LINE(X2,Y-12>-CX2+12, 

YU3),PSET,B;LINE(X2+2,Y)- 02+10 

,Y),PSET:X=X2+2;Y=Y-10 

3230 GOSUB80:IF VALUHSJOA THEH 

X3 = X:XM6Q:GOSUB150:X=X3;GOTO32 
30 

3240 Y=Y+14 
3250 CQSUB80:IF VAL<II*)OB TKBH 

X3=X:X=16O:GOSUB150:X=X3:GQTO32 
50 

3260 X*168:CS=RE$(RND(5)):LINE(X 

-2, Y-2) - (X+LEN CC$>*8+2 , Y* 1 0) , PSE 

T,BF:DRAW"C5";GOSUB190:GOSUB440: 

LINE(X-2,Y-2)-CX+LEN(C$)*8*2,Y+l 

0) , PSET, BF: LINE (0,0)- (255, 131) ,P 

SET.BFiDRAV'CO" 

3270 JF HU<20 THEH3080 ELSERBTUR 

| 

3999 REH**EQV1VALEHT FRACTIONS** 

4000 F=85;A=1:B=3:GOSUB310:F=170 
;A=2;B=6:GOSUB310 

4010 L=32:X=0:Y=62:CS=" THESE TV 
DIAGRAMS SHOW TVO DIFFEREIT FR 
ACTIONS YET THE SAME AREA OF BAC 
H IS II BLACK. ":G0SUB190:GOSUB40 


402O YM0O:CS«"THE CIRCLE OB THE 
LEFT SHOVS":GOSUB190:A=1:B^3:X1 
*240: Yl=05:COSUB410iCOSUD40e 
4030 X=0:Y=130:C*="THB CIRCLE OH 
THE RIGHT SHOVS":GOSUB190: «=2r B 
=6: Y1=125:GOSUB410: GOSUB400 
4040 G0SUBl60:LlNE(0,62)-(2*5,14 
5),PRESET,BF:LIHE(0, 180) -(255,19 
1), PRESET, BF 

4050 X1=80:Y1=62:A=1:B=3:GOSUB41 
0: XL=160: A=2: B=6: GOSUB4 10 
4060 X1=80:Y1=90:AM:B-3:QGSVB41 
0:X=90:Y=95:CS="=":GUSUB19Q:LIHE 
(112,99)- (136, 99), PSET: X=U2; Y=9 
0:CS^"1X2":GOSUB190:X=112: Y=102: 
C$="3X2 M :GOSUB190 
4070 X=144: Y=95: C*=^'=" : GOSUE190: 

A=2:B=6;X1=16Q;Y1=90:GQSUB410:GO 

SUB4 00 

4060 X=0:Y=120:CS="B0TICE HOV TH 
E NUMERATOR AND DENOMINATOR OF T 
HE ORIGINAL FRACTIOW HAVE BEEN M 
ULTIPfelED BY THE SAKE NUMBER TO 
MAKE AH EQUIVALENT FRACTIOH.": GO 
SUB190:GOSUB400 

409O GOSUB160:LIHE<0,85>-(255,19 
1), PRESET, BF 

4100 X=0:Y=100:C*-"THIS CAN ALSO 
BE DONE IN REVERSE." :GOSUB190:G 
OSUB160: LINE(0. 100)- (255, 120) , PR 
ESET,BF:LIHE(0.180)-(255,191),PR 
ESET.BF 

4110 DRAV'CO": Xl=80: Yl=90: A=2: B= 
6:GOSUB410:X=96:C$="=":GOSUB190: 
LINE (112 , 99) - (136, 99) , PSET: XM12 
: Y=90: C8="2 2" : G0SUB190: LIHEU22 

,94) -(126,94), PSET; PSET (124,32); 
PSET (124,96) 

4120 X=112;Y=102;C*="6 2";G03UB1 
90:LINE(122, 106>- (126, 106) , PSET: 

FSET(124,104):PSET(I24,108):X=14 
4. Y=95:C*-"=";GOSUB190: A=l: B=3: X 
1=160: Yl=90: GOSUB410: GOSUB40D 
4130 X=0;Y=120:C$="THIS IS CALLE 
D ' REDUCING TO LOWEST TERMS'.": G 
OSUB 190: GOSUB40Q: GOSUB160 

4140 PCLS5:LlHEc"0,132>-<255.191> 
«PSET,BF:NU=0 

4150 CO=0:F=85:NU^NU+1 

4160 A=RND(4);B=RND<4): IF A>=B 

R A=2 KW B=4 OR B=B3 THEN4 160 E 



LSEGOSUB310i A3=A: B3-B 

4170 B=RND(3> + 1; IF B*B3>9 THEH41 

70 ELSEFn70:B2-B:B4=B3*B:A=A3«B 

: A4=A: B=B4 .-GOSUB310: L I HE (33,50)- 

(224,118),PSET,B:LIIE<33,50)-(22 

4, 53), PSET, BF 

4180 B2*=STRl(B2>:B2i=BIGHTS(B2* 
,LEN(B2*)-1) 

4190 IF HIJ<8 THEH4200 ELSB IF HU 

>7 AND NU<15 THEH4290 ELSB 01 RN 

D<2) GOTO4200, 4290 

4200 A=A3:B=B3:Xl=112iYl=80:GOSU 

B410:X=120:C»="=":GOSUB19O:LIHE( 

X*10, Y44)- (X+16, Y+4> , PSET 

4210 RB=RND(2):ON RB GOTQ4220.42 

50 

4220 Cl»=* , BUMERATOR":Y=Y+G:X=XV8 

; BV STR* <B4 ) ; BS=RIGHTS (BS , LEB (Bt 

>-l):C*=B$:GOSUB19tO 

4230 X=12a:Y=B0:GOSUB80 

4240 IF VAL(IHS)=A4 THEB4350 ELS 

EY=Y+ll:GOTO4260 

4250 Cl*="DEHOKI BATOR" : Y=Y-5: X=X 

♦8: BS=STRS (A4) : B$=RIGHT$ CB», LBK 

BS>-1 ) : C*=B»: GOSUB190 

4260 X=128:Y=91:QOSUBa0 

4270 IF VAL(IN*)^B4 THEB4350 

4280 X=8:Y=120:C*=" MULTIPLY THB 

"+C1»+ M BY "+B2»+".";GOSUB190:0O 

SUB400;LIHE<0, 120>-<255. 130>, PRE 

SET.BFrOB RH GOTO4230. 4260 

4290 X=40:Y=56:Ci= u REDUCB TO 10V 

EST TERMS ,, :GOSUB190:A=A4:B=B4:X1 

= ll2:Yl^80:GOSUB410:X=12O:CJ= ,, =" 

: GOSUB190; LINE (X+l 0, Y+4)- <X+16, Y 

+4>,PSET 

4300 C1$="DIVIDE BY "+B2»+"." 

4310 X=128:Y=80:GOSUB80 

4320 IF VAL(IN*)OA3 THEH X=0:T= 

120:C4-C1*:GOSUB190:GOSUB400:L1B 

B(0,120)-(LEB(C*)*8+8,130>, PRESS 

T,BF:GOT04310 

4330 X=126:Y=91:GO5UB80 

4340 IF VAL(INJX^B3 THEH X=8: V= 

12O:C$=CU:GQSVB19Q:QQSUB4Q0lLlH 

E(0,120)-(LEH(C$)*«+8, 130>. PRESS 

T,BF:GOT04330 

4350 Y=105; C»=RBS (RHDC5) > : X= (16- 

1NT(LEB(C1>/2))*6!G0SUB190:G0SUB 

44O:LIHE(34,0)-(223,49) ( PHESBT,B 

F:IF BU<2C THBHLIHE(34,54)-(223, 

117 ), PRESET, BFrGOTO4150 ELSB LLH 

H(30, 50)- (230, 120) , PRESBT, BF: RET 

URN 

4999 REM**K0VE CHOICE OB SCREEB* 

5000 PCLS:DRAVC0":C2$=""; Tt= 

U$=»":LT=LEN(Cl*):LlMHTaT/2):L 
2=LT-L1:C2$=STRING*<LT.32> 

5010 F0R2=IT0 LT STFPSs T1»=KID*( 
CI* , Z, 1 ) tCHRt (32) : Tt-TS+Tli: BEIT 
Z:FORZ=2 TO LT STEP2: T2$=CHR*(32 
)+HlD$(ClS,2, 1) :US=U$*T2»: BEXTZ: 

xa=xie-w>w 

5020 X«X1:Y1=40: Y2=140 

5030 F0RZMTO5 

5040 X=X1:Y=YI:C1=T*:GOSUB190 

5050 Y=Y2:C*=US:GOSUB190 

5060 Y=Y1:C*=C2$:GOSUB190:C»=C2J 
: Y=Y2:GUSUB190 

5070 Yl=YU10iY2=Y2-10 

5080 BEXTZ 

5090 Y=Y-10:Ct=C14:GOSUB19O 

5100 RETURN 

5999 REM*****DATA FOR M.L. ****** 
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THE 
LOAN 



CALCULATOR 



by Brian Grey 
32K ECB 



THE IDEA FOR tile progiao 
cane quite easily and 
unexpectantly. About two 
sonths ago one of the young 
tradesmen at work was telling me 
about his first pay merit on his 
housing Loan. It appeared Iron 
what he was saying that he was 
not aware of the large amount of 
interest he would have to pay on 
nls sizeable loan. So 1 set to 
work making the program "loan 
calculator". 

The program will ask for all 
the variables and then send to 

the screen and print the 

remaining principle after the 
quarterly repayment has been 
made. 

The summary at the end of the 
print out tells total number of 
repayments, Interest paid and 
day of last payment. 

You now have the option of 
re-doing the exercise with extra 
payments on top of the quarterly 
repayments. 



The Listing: 



GOTO10 

a ********* loan m*****#mm 

****** BRIAN GREY ************ 
3 SAVE" 11: 3": END 
10 POKBI50.18 
15 CLS 

20 FORX=1024T01054 STEP 2 
22 P0KEX,36:NEXT 
24 FORX=1087T01503STEP 64 
26 P0KEX,36:ltEXT 
28 FORX=1504TO1535 STEP2 
30 POKEX,36:NEXT 
32 F0RX=1056T01472 STEP64 
24 POKEX,36:irEXT 
36 PRINT<S200,"THE HOUSE LOAN" 
38 FRIHT*400,"BY BRIAI GRAY" 
40 PRINT<9452,"DO YOU HEED IHSTRU 

cnoNS" 

42 I$=INKEY»; 1FI*=*" , TKEK42 



44 IF I»="VTHBN990 
106 CLS 

110 PRlNT#-2,CHRi<35>; 
122 PRINT«230,"VHAT IS THE PFINC 
I PAL OF THE LOAN" 

132 INPUT A 
134 CLS 
152 GOSUB622 

162 PRINT«227,"VHAT IS THE IBTER 
EST RATE" 
172 INPUT B 
174 CLS 
192 GOSUB622 

200 PRINT«226."VHAT YEAR DID THE 
LOAK START" 

205 INPUT Y 

206 CLS 

207 COSUB622 

209 PR1NT®227 ( "HQV MUCH A3E YOUR 
PAYMENTS" 

211 INPUT P 

212 CLS 

213 G0SUB622 

215 PRINT" ARE YOUR PAYMENTS," 

216 PRINT" <1> Y 
EARL'f 

217 PRINT" <2> Qj 
UARTLT" 

219 PRINT" (3) N 
ONTHLY 

220 IPPUT R 

221 CLS 

222 GOSUB622 

223 ON R GOTO 224,225,226 

224 V=P/12*3:C0T0227 

225 rf=P:G0T0227 

226 V=P*3 

227 ?RINTS226,"DO YOU WISH TO PA 
Y EXTRA ON YOUR PAYM 
ENTS" 

226 1NPUTAS 

230 IF AS="NO" THEN GOTO 260 

233 CLS 

234 Q = 0:T=0:Z=0:U=0:M=0: I=0:S=0: 
A=0 

235 PRINT$226V* H0V MUCH EXTRA D 
O YOD VISH TO PAY" 
240 IflPUT H 



246 CLS 

249 GOSVB622 

250 A-F 

251 Y=J 

252 PRIHT#-2,CHRiU0> 
260 CLS 

265 PRIir'THE FOLLOWING F1GUPES 

INDICATE WHAT IS LEFT OF THE PR 

I NCI PAL AFTER THE PAYMENT HAS 

BEEN MADE" 

326 PRIST#-2,"Y0UR PRINCIPAL IS" 

A "DOLLARS" 

328 PRlFTJf-2,"YOUR INTEREST FATE 

IS" B" PERCENT" 
342 ON P GOTO 352,362,372 
352 C=4: PRINTS," YOUR PAYMESTS 
ARE"P"D0LLARS PER YEAR" : G0TO574 
362 C=4:PRIHT#-2,"Y0UR PAYMEFTS 
ARE" P" DOLLARS PER QUARTER" sC0TO3 
74 

372 C^4:PRINT*-2,"YOUR PAYMEFTS 
ARE" P" DOLLARS PER MONTH" :GOT0374 
374 [F M=0GOTO 362 
376 PRINT#-2,"Y0U ARE PAYING"M*'D 
OLLARS EXTRA PER PAYMENT" 
382 PRI»T#-2,CHR$C10> 
392 PRINTf-ZV'THE FOLLOWING F1GU 
RES INDICATE THE REMAINING PRINC 
[PAL AFTER THAT PAYMENT" 
402 PRIM»-2,"HA£ BEEN MADE" 
412 PRISTS. CHRSC10) 
414 PRIHT#-2,"YEAR"TAB<15)"1ST Q 
TR"|TAB(30)"2ND QTR";TAB<45)"3RD 

QTR";TAB<60>"4TH QTR" 
417 J=Y 

419 F=A 

420 X=0 

422 X=U/100)*B 

432 X=X/C 

442 Q=Q*X 

444 IFN50GOT0452 

446 V=Q 

452 T-TU 

462 2=V-X 

472 A^A-Z-M 

460 A-I1TM) 

482 PRINTA 

484 IF S=0 THEN GOSUB 7Q0 
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486 S=S+15 

488 PR1NT#-2,TAB(S>A; 

490 IF S=60THEN S=0 

492 IF A>V-+M THEN <30TO 420 

512 PRENT#-2,CHR$<10> 

522 PRLMT"Y0U JIADE'T'PAYNENTS" 

532 PRINT#-2,"Y0U MADE"T"PAY«BRT 

S" 

542 G0SUB622 

552 PR I NT" YOU PAYED"Q" HOLLARS 19 

INTEREST" 
562 PRINT#-2,"Y0U PAYED"Q" DOLLAR 
S IH IHTEREST" 
572 G0SUB522 

574 IF M=0 GOTO 582 

576 U*T*M 

577 I=V-Q 

575 PRrNT'YOU J»AYED"U" COLLARS EX 
TRA TO SAVE" I" IN INTEREST" 

580 PRtHTdf-Z/'TOU PAYKD"U"DULLAK 
S EXTRA TO SAVE"!" IN INTEREST" 
582 S=T/C 

592 PRUT" IT TO0K"S"YEAR TO PAY 
OF YOUR DEBT" 

602 PRINT#-2,"IT TOQK"S"TEARS TO 
PAY OF YOUR DEBT" 

603 PRINT 

604 PR I NT" DO YOU WISH TO HAKE AI 
OTHER CALCULATION" 

605 PRTNT 

606 INFUT E4 

607 PRIHT#-2,CHRS<10) 

606 IF LS^'YES" THEH GOT0233 

610 PRlMT"GOOD BYE AND GOOD SAVI 

NC" 

612 EHD 

622 FOR X-0T03O0:SEXT 

632 TRENT 

642 RETURN 

700 FRENT#-2 

705 PRflTir-2,Y; 

710 Y=Y+1 

720 RETURN 

990 CLS 

1000 PR1WT®0,"THIS IS A PROGRAM 

TG HELP IN THE PLAH RING OF THE RE 

PAYMENTS OF A HOUSE LOAN" 

1020 PRUT" 

IHfc PRINCIPAL OF THIS 

PROGRAM ISTO SHOV YOU HOW MUCH 
YOU CAR SAVE BY PAYING EXTRA 

EACH PAYMENT. 

1030 PRINT* 

FIRST RUN THE PROGRAM 

WITHOUT EXTRA PAYMENTS THEH V 
ITH A RARGEOF EXTRA PAYMEMTS" 
1040 PRINT" 

<IHKEY>" 
1C50 IS-1HKEYS: IFI$=""GOTO1050 
1060 CLS 

1070 FRIBTeo,"THE PROGRAM VILL A 
CCEPT MONTHLY, QUARTERLY AMD YEAR 
LY REPAYMEHTS. BUT THE RESULTS AR 
E PRODUCED FOR QUARTERLY REPAYME 



SIMPLICITY" 

A PRINTER WILL PRO 
RESULTS ON 2400 BAUD 
PROGRAM VILL RVN OK V 
PRIHTER BUT WILL BE A 



NTS FOR 
1080 PRINT 
1090 PRINT 
DUCE THE 
RATE. THE 
ITHOUT A , 
BIT BLOW* 
2000 PRINT 

2010 PRINT" < I If KEY)" 

2020 1*=IHKEY$:IF IS=" "THEN 2020 
2030 GUT0106 
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6000 DATA 77,38,1,57,52,118,111, 
141,1,65,150,220,68,68,68,214 
6010 DATA 182, 199, 4, 39, 44, 68,151 
, 190, 193 , 1 , 34 , 5. 150, 22 1 , 68, 151 
6020 DATA 192,84,37,21,204,0,176 
, 237, HI, 1. 2?, 134, 240. 167, 141 
6030 DATA 1,25,134,10,167,141,1, 
13,32,30,8,100,108,141,1,12 
6040 DATA 32,2,151.100,150,162,1 
29,1,39,4,150,221,151,102.204 
6050 DATA 1,06,237,141,0,244,134 
,224, 107, 141,0, 240, 134,32. 107 
6060 DATA 141,0,228.238,2.214,10 
2,61,219,190,137,0,211,186,31 
6070 DATA 1,111,141,0,213,160,24 
8,2.161.141,0,206,38,2,53,246 
6000 DATA 109, 141,0,196,52,16, 39 
, 26 . 230 , 97 , 23 1 , 141 , 0, 187 , 228 
6090 DATA 141,0,188,225,141.0.17 
9,38,10,53. 16,236,141,0,174 
6100 DATA *8, 139,52, 18, 111,141,0 
, 165, 230, 19-2, 19*3, 127, 38, 5, 134 
6110 DATA 6,167,141,0,153, 132,32 
,134,9,61,235,141,0,144,137 
6120 DATA 0,49,141,0,198,49,171, 
109,141.0.132.39.11,166.141 
6130 DATA 0,126,230,141,0,119,61 
,48,139,109,141,0,119,38,36 
6140 DATA 166.160,13,178,38.1,67 
,156,183,37.4,53,16.32,149.167 
6150 DATA 132,166,141,0,92.129,8 
.39.63,230, 141,0,81.58,108,141 
6160 DATA 0,79,32.220,166,164,68 
,68,68,68,141,74.52,4,166,160 
6170 DATA 132,15,48.1,141,61,48, 
31.53,2,156,160,37,5,53,16.22 
6180 DATA 255,97,237, 132, 166, 141 
,0,40,129,8,39. 11.230,141.0 
6190 DATA 20,56,108,141,0,27,32, 
162.106.141,0,20,53,10,109.141 
6200 DATA 0,19,38,5,48,1,22,255, 
50,48,2,22,255, 45, 16,30, 15,8 
6210 DATA 0,176,240,0,52,64.51,1 
41.0,17,230,198,228,132,52.4 
6220 DATA 139,16,230,198.150,178 
.61,234,96,53.194.255.252,243 
6230 DATA 240,207,204,195,192,63 
.60.51,48,15,12,3,0,0,1,4,5 
6240 DATA 16,17,20,21,64,65.68,6 
9,80.81,84,85,0,0,0,0,0,0,0 
6250 DATA 0,0,8,8,8,8,8,0,8,0,0, 
20,20,20,0,0,0,0,0,0,20,20,54 
6260 DATA 0,54.20,20.0,0,6,30,32 
.28.2,60.8.0.8,18,2,4,8,16.32 
6270 DATA 36. 0, 0, 16, 40, 40, 36. 42, 
36.26,0,0,8.8,16,0,0,0,0,0,0 
6280 DATA 4,8,16,16,16,8,4,0,0,1 
6,8.4,4,4,8,16,0,0,6,42,28,28 
6290 DATA 42,8,0.0,0,0.8.8.62,6, 
8,0,0,0,0,0,0,0,0,8,18,0,0.0 
6300 DATA 0,0,62,0,0,0,0,0.0,0.0 
,0,0,0,8,0,0,2,2,4,8,16.32,32 
6310 DATA 0,0,28,34,38,42,50,34, 
26,0,0,6.24,8.8,8,8,28,0,0,28 

6320 DATA 34.2,28,32,32,62,0,0,2 

8,34,2,12,2,34,28.0,0,4,12,20 
6330 DATA 36,62,4,4,0,0,62.32,60 
,2.2.34.28,0,0.28,32,32,60.34 
6340 DATA 34,28,0,0,62,2,4,6,16, 
32.32,0,0,28,34,34.28,34,34 
6350 DATA 28.0,0,28,34.34,30,2,2 
.28,0,0,0,0,8,0,8,0,0,0,0,0 
6360 DATA 0,8,0,8,8,16,0,0,4,8,1 
6.32,16,8.4.0,0.0.0.62,0.62 



6370 DATA 0,0,0,0. 16,8,4,2,4,8,1 
6,0,0.26,34.4,6,0,0,8,0,0,28 
6380 DATA 34,2,28,42,58,12,0,0,6 
.20,34,34,62,34,34,0,0,60,18. 
6390 DATA 18,28,18,18.60.0.0,23, 
34,32,32,35,34,28,0,0,60,1a 
6400 DATA 18,18,18,18,60,0,0,62. 
32,32,60,32,32,62,0,0,62,32 
6410 DATA 32,60,32,32,32,0,0.30, 
32.32,38,34,34,28.0.0.34,34 
6420 DATA 34,62.34.34,34,0,0,26, 
8,3,8,8,8,26,0.0.2,2,2,2,2,34 
6430 DATA 26,0,0.34,36,40,48,40, 
36,34,0,0,32,32,32,32,32,32 
6440 DATA 62,0,0,34,54,42.34,34, 
34,34,0,0,34,50,42,38,34,34 
6450 DATA 34,0,0,28,34,34.34,34, 
34.28,0,0,60,34,34.60.32,32 
6460 DATA 32,0.0,28,34,34.34,42, 
36,26,0.0,60,34,34,60,40,30 
6470 DATA 34,0,0,28.34,16,8,4.34 
,26,0,0,62,8.8.8.8,8.8,0,0,34 
6480 DATA 34,34,34,34,34,28,0,0, 
34.34,34,20,20,8,8.0,0,34,34 
6490 DATA 34,34,42,54,34,0,0,34, 
34,20,8.20,34,34,0,0,34,34.20 
6500 DATA 20,6,8,8,0,0,62,2,4,6, 
16,32,62,0,0,0,0,62,52,20,20 
6510 DATA 20,0,0,12,10,34,02,34, 
36,24,0,0,16,8,8,12,20,34.34 
6520 DATA 0,0,0,26,42,-8,6.6,6.0, 
0,8,8,8,8,42,28,8,0,0.8.20,20 
6530 DATA 8,0,0,0,0,0,0,0,24,4,2 
8,36,26,0,0.32,32,44,50,34,34 
6540 DATA 60,0.0,0,0,30,32,32,32 
.30.0.0.2.2,26,38.34,34,30,0 
6550 DATA 0,0,0,28.34,62,32,30.0 
.0, 12.18,16.56,16,16,16,0,0 
8560 DATA 0.0,2,2fl.34,34.30.2, 28 
, 32 . 32 . 44 , 50, 34 , 34 , 34 , 0, 0. 8 
6570 DATA 0,24,8,8.8.26,0,0,2,0. 
6,2.2,2,2,18,12,32,32,36,40 
6560 DATA 48,40.36.0.0,24,8,8,8, 
8,8.28,0,0.0.0.20,42,42,42,34 
6590 DATA 0,0,0,0,44,18,18,18,18 
,0,0,0,0,29.34,34.34,28,0,0 
6600 DATA 0,0.44,50,34.34,60,32, 
32,0,0, 26,38,34,34, 30,2,2,0 
6610 DATA 0,38,24,16,16,10,0,0,0 
,0,30,32,29,2,60,0,0,16,60,16 
6620 DATA 16,16,18,12,0,0,0,0,36 
,36,36,36,26,0,0,0,0,34,34,20 
6630 DATA 20,8, 0, G„ 0, 0.34, 42, 42, 
42,20,0,0,0,0,34,20,8,20,34 
6640 DATA 0,0,0,0,34,34.34.38,25 
,2,12,0,0,62,4,8,16.62.0.0,24 
6650 DATA A, 8, 26,0, 0.0.0,0,0,0,0 
,0,0,16.40,40,16,0,0,0,0,0,16 
6660 DATA 46,16,56,0,0,0,0,0,48, 
8,16,56.0,0.0,0,0,0.0.0,255 

6669 REK*DATA FOR SCREEN SCROLL* 

6670 DATA8B. 16, DF. A6.84, 10. 8B, 00 
,1F 1 E6,1F,E7,84,30, IF, 31, 3F, 26, F 

6,A7.84,30 1 Q8.3F,8C,1D,FP.2F.B6 ( 

39 
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ATISFYING 



ROGRAMMING 



by John Keilett 



One of the major pleasures of 
computing, apart from getting 
something working, :s to make 
the computer do useful things 
that nobody has made It do 
before. Kany tines other 

programmers have said to me, 
"That can't be done," or, "That 
can't be done in only that much 
code." It Is even better when 
tney say, "Kow can that be done 
so quickly?" Then you know you 
bave discovered something 

worthwhile, 

The best example of clever 

programing I have ever 6een was 

done by a first generation 
programmer, back in the 1950* e. 
He said, during a l«cture on 
computing, " 1 want you to try 
and write the program for this. 
There is a variable called X, 
and we know it contains either 
13 or 7. If it contains 13 I 
want you to change it to 7, and 
if it contains 7 thea change It 
to 13. low the hard part— i 
want you to do it in one 
instruction <or statement)." I 
was willing to swear that It 
could not be done, working with 
the KC10 set of statements for 
example, which does not have the 
IF...THEH. ..ELSB statement. I 

expect Host of you -an do It in 

two instructions, but if you 
oanage it in one before reading 
the answer at the end of this 
article, then you should 

definately take up programming 
for a living. 

Just a word of warning, if 
you are trying the above 
programing prablen. The obvious 
code: 10 IF X=13 THEH X=7 
followed by 20 IF X=THBB* X=13 
does not work, because X will be 
changed back to 7 and then 
changed back to 13, which you 
don't want to happen. It can be 
done In one statement, and a 
very simple one. 

It can happen during a 
program that you want a string 
variable, which someone has 
typed in, to be a set length, 
say eight characters long. If 



they have typed less, you want 
to fill it out with blanks on 
the left. If they have typed 
■ore, you want to cut the string 
back to exactly eight 

characters. You need this when 
you are storing records, for 
exaaple, and you have only eight 
characters to spare In the 
record, or you have a tight 
screen layout, and you want to 
keep this variable down to eight 
characters. I hope the best way 
to do this for a string variable 
called A* is 



i» = RIGHT* (" 



"+a$,8) 



This covers the case where A* 
Is a null string, i.e. one with 
no characters at all in it. 

Another piece of code 1 have 
found useful on the KC10 is the 
direct driving of the video 
chip, this any be done by PORlag 
a value in 32768. I found out 
about this fron the October 1983 
Issue of Australian Mi CO, pages 
15 and 17. You would think, from 
the MC10 manual that letters on 
the KC10 can only have green as 
the background. If you try POKE 
32768,64 you get an alternative 
colour, which reverts to green 
If you issue the SOUHD 

statement. This is because the 
address 32768 also controls the 
sound, so you will need to POKE 
32768 with a 64 again to get 
away from the green background. 

While I am on the subject of 

sound, it le interesting to see 

from, page 142 of HICO EXPOSED 
that the sound bit, which is bit 
7 of the address referred to 
above, 32708, is Just t egg led or 
flipped to make the sound- The 
words "togglo" or "flip" in 
computing moan changing from one 
state to another, and then back 
again, like a toggle switch in a 
car. This means that if you 
change bit 7 in 32768, you can 
create sound effects, in 

addition to the sounds you can 



get froa the SOUHD statement. 

Let me finish by giving the 
solution to that 7 and 13 
problem. The one statement *»hich 
solves it is X ■ 20 - X. 

As you can see, this changes 
a 7 to a 13, and a 13 to a 7. 
You can easily use this to 
toggle between any two nunbers 
you want. 

I bupu Lhetse few exanples 
show something of the 

satisfaction to be found in 
programming, which sometimes let 
you get more out of your machine 
than you would expect. 



(NOTE. This is one of a few 
articles which were discovered 
In the archives dating back to 
the days of Greg Vilson and 
which we have considered to be 

worth printing or reprinting 

If they have previously been 
recorded. J-) 
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DIRECTORY 



TANDY 1000 or IBM Compatible 



T 



his 
file 
dliec 
like 
disk or su 
tor word 
there 2 sub 
files (i.e. 
one for per 
your word 
changing to 
subdlrector 

FILES you 
contents o£ 



program produces a 

listing of ;wo sub- 

toiles, so that if 

me you hove a 

b-dLrectory that Is 

processing and from 

'-directories for your 

nno- for business and 

sonal), by inserting 

processor disk (or 

your word processor 

y) and then typing in 

can then see the 

bath directories on 



the screen at the sane time. 

I t shows the name of the 
file, the extension, the size 
(to the nearest K) and the date 
on which it was created or 
updated. 

Vitb the source code 1 have 
comraonted It as much ac possible 
to allcw new users of E'ascal to 
get an idea of what Is going on. 

1 have also added a 

"flowchart" of how the program 
will riiii at run time to give you 
a better Idea of haw Pascal 



by Barry Cawley 



works. 

For those of you who are much 
wiser, I know that the flowchart 
is not a true flowchart using 
the correct symbols etc, but 
then It Is not aeant to be. It 
Is to used as a guide for new 
users and pr ugi anuners. 

So bearing all this in nind 
have fun and try out Pascal, 
which is a language that is 
taking the coaputer world by 
stor a. 

All the best Barry 



procedure Directory; 
begin 
begin 

k:=0; 

Fi 11 Char (DTA, SlzeOf CDTA) , 0? ; 

FillChar f Mask, SizeQf (Mask >,0>; 

Fl 1 ] Char (HaraR , Sized! (HamR) ,. 0) ; 

Masfct ll:=chr<0); 

Cliscr; 

writeC Options for Files to pr 

readln<Mask): 

if Kask=* ' then 

Maek: = '*.* »j 

ClrScr; 
TextColor(2); 

Write < 'Directory list for 
TextColorU); 
Regds.AX := *1AOO; 
Regds. DS := Seg(DTA); 
Regds. DX := Ofs(DTA); 
HSDoc<Rcgd35; 
Error := 0; 
Regds.AX := *4EOQ; 
Regds.DS := Seg(Mask); 
fiegds.DX := Of s (Mask); 
Regds, CX ;= 22; 
MSDos(Regds>; 

Error ;s Regds.AX and $FF; 
s ;= li 
If (Error - 0) then 

repeat 

NaraRIsl := Chr (Ms ml SegtDTA) 
s := s * 1; 

until not (HanRts-U in [ * '. 
NanRlOl := Chr(s-l); 
Tc: =k + l; f namel kl : = namr ; 
while (Error = 0) do begin 

Error J* 0; 

Regds.AX := S4F00; 

Regds. CX := 22; 

MSDosC Regds D; 

Error := Regds.AX and SFF; 

s := 1; 

repeat 

KaraKEs] ;= Urgent SegtDTA) 
s : = s + 1; 

until not (MamRls-ll In [ ' '. 

RamRlOl := Chr(s-l); 

if (Error = Q> 



lnt 



Mask, 



(start af procedure Directory > 
(Clear value of variables) 



(Clear screen) 
*); {Inform user he has options) 
(rend ueers options) 
(if user entered nothing) 
(Default listing) 
(Clear screen) 
(Change Colour) 

'); (Write heading) 
<Cha.nge Colour) 
(Get First Hatching Directory entry) 



0fs(DTA)+29+s]); 
""•)) or (s>20); 



(start loop) 
(Translate entry) 
(increment s> 
(end loop) 



(Increment K and put first entry) 
(Into variable required) 
(Get next matching Directory entry) 
(and all other matching entries) 



0fs(DTAH29tsJ ); 
' ~'J ) or (e > 20) 
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then ; 

ki-fc+li 

f Garnet kl : = HaraR 
end; 
t;=0; 

writeLn <' \k-l,' Files') 
Text Color (2); 
VrltelnC 1 



(Same as for first entry) 



Union* user how many entries) 
(change colour) 



TextColortO; 
end; 
k:=k-l; 
end; 



(change colour) 

(end loop for matching entries) 

(decrement K by 1) 

(end procedure) 



begin 

Directory; 

for m;=l to k do begin 

write (fnamedal : 13, ■ ' >; 

end; 

writeln; 

T«ltcolor<2>i 



(Begin main program) 

(do procedure directory) 

(tfrlte the filenames found by directory) 



(write a blank line) 
(change colour) 



VritelnC 

TextColorU); 
y:=whereY; 
wlndow(20,y.6b,24); 
Clrscri 

for a: = l to k do begin 
scratch :=f name! m) ; 
prlntfllci 
end; 

wlndowCl, 1,80,25); 
end. 

are taken from the program 
PC_DISK: which was placed In the public domain) 



(Change colour) 
(get screen i location) 
(make a window fron that line down) 
(Clear the window) 
(Start loop to write in window all matching files) 
(nake variable scratch = next file) 
(Do procedure printfile) 
(end of loop) 
(restore original screen) 
(end main program) ( the directory routines in this Program 



($C+) 



Const 
yes_no 



: set of char = C ' Y' , ■ y' . ' »' . ' n' ) ; 



Type 

regpack - record 

ax, bx.cx.dx.bp.ei, dl.ds.es, flags: integer; 

end; 
raem_ptr ■ "pointer _type; 

pointer_type ■ array CI.. 2) of integer; 
fnome_type = strlngtll]; 



regpack; 

roem_ptr; 

string! 321; (string input For dlr scon) 

String! 14); 



Var 
R 

pointer, dta 
files 
volume 

laop.x.e.drv, tl, t2,a,b,c, xxxx.test : integer; 
found : Boolean; 

ch, default drive : char; 

dta area I array U..130J of byte; 

f c -b : array E-7..361 of char; 

f_space I real; 

date_type r Char; 



{ Procedures 

procedure setfcb; forward; 

pr oc edu r e ke yc ont 1 n ue ; 

var 

ch ; char; 
x : Integer; 
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begin 

write V Tap any key for more '>; 
read (kbd.ch); 

for x := 1 to 22 do write (chrO)); 
c ireol; 
end ; 



r.dic := of s (pointer*) 
r.ax := Sll shl 8; 

rasdos(R); 
end; 



procedure setjita; 

begin 

(— Set DTA address — } 

pointer := addr(dta_area>; 

r.ds 

i.dx 

r.ax 

feDos(R); 
end: 



- segCpointer"); 
= ofstpointer*) 
= $IA shl 8; 



procedure get_dta; 
begin 

< — Get DTA address It ES:BX — ) 
i. ax := 0; 
r . es ; = ; 
r. bx !» 0; 
rrflx := *2F shl 8; 
*sDos<K); 

dta := ptrCr.es, r. bx>; 
end; 



procedure set_fcb; 
begin 

< — Set up an unopened FCB — > 

for x := -7 to 36 do fcbt xl := #0; 

fcbl-7] := #255; 

fcbl -11 := #0; 

filez := '*.*' + #0; 

pointer ;= addr (f Ileztl) > ; 

r.ds js segfpointer") ; 

r. si := ofs(pointer') ; 

pointer := addr (fcbl 01 ) ; 

r. es := seg(pointer') j 

r. di :- of 3 (pointer") ; 

r. ax := S29 shl 8; 

rcsdos(R) ; 

set dta; 

get_dta; 

end; 



procedure rasdosl2; 
bpgln 

set dta; 

pointer : = addr (fcbl -7J ) ; 

r.ds := seglpointer") ; 

r. dx : •= of stpolnter") ; 

r. ax : = S12 shl 8; 

rnsdos(R>; 
end; 



( go after the next) 
( matching entry ) 



procedure rasdoslltx 
b^gin 

Get feb; 

fcbf-7] 

fcW-lJ 

pointer 



integer) ; 



= *255; 

= chr(x>; 

= addr<fcb[-7l); 



procedure show_dta(xl , yl I integer); 
var 

1 1 , t2 , dl , d2, hour, minutes , seconds, dd, an, yy : Integer; 

bytes : real; 

begin 

volurte: = ' I ' ; 

for loop := 6 to 15 do 

volume: =volume+chr(»en[xl:yl+loop) >; 
volume: ^volume* 1 I ' ; 
for loop := 16 to 18 do 

Volune:=vo]ume*chr<aeniLxl:yl + loopJ>; 
write(Volune); 
tl := memtxL:yi+aoJ ; 
t2 := nemIxl:yl*31J; 
dl t= meia*xl:yl*32J ; 
d2 := nemixliy 1*331; 
bytes := aemlxl: yl*37)»256. 0; 
bytes := bytes + meol xl ; yl+36] ; 
bytes := bytes + aea(xl:yl*38) * 65536.0; 
if bytes=0 teen begin 

textcolor(31); 

writ? ('EW1Y'>; 

textcolorC15); 
end 
else 
begin 

bytes := bytes/1024; 

write ('I'.bytesiSiO/K'); 
end 

end; 



procedure dtr2; 
var 

x : Integer; 

bytes : real; 

begin 

textcolor(15); 

xxxx ;- Oi 

set_fcb; 
osdosliO); 

if <r-ax and 255) = then 
begin 

while <r.ax and 255) = do attribute bit 
begin 

xxxx : = xxxx + 1; 
x:=x+l; 

showdto (seg(dta"),ofs<dta")>; 
if xxxx/4=intUxxx/4> then wrlteln<' I ' ); 
nsdosl2; ' 

end 
end 
e lse 

wrlteln ('Disk is Empty!'); 
end; 
begin 

test:=0; 
chdlrCXwordSbuss' ); 



Clrscr; 

TextColor (15) ; textbackground (1) ■ 



(change this to any) 
(sub-directory that) 
<you wish to read) 



r.ds ;- segtpolnter") ; 
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gotoxy<L,l);Vriteln<' 
VrltelnC 
VrltelnC 



ize|"); 
— I'): 

dir2; 



nirnntnrv of BUSS file- 






T — T I "I I 1 I I I I r 
VrltelnC | Haine |Ext|Slze| Bame |Ext|Size| Bane |Hxt|Size| Hane |Ext|S 

VrltelnC I 1 1 1 | 1 1 1 1 1 1 \~ 



while xxxx/4<>lnt Cxxxx/4) do begin 

write <* I ')i xxxx: -xxx.x+1; 

test:=l; 
end; 
if test=l then VrltelnC' T > ; 

Vritein<' < ■ 1 ' ' ' 

test:=0; 



'); 



chdtr<'\word\f lies' ); 



{change this to any sub-directory that) 
{you wish to read) 



'>i 



TextColor<15>; text background (4); 

Vriteln; 

VrltelnC 

Vriteln (' 

VrltelnC 

VrltelnC 

VrltelnC 

dir2; 

while xxxx/4<>int <xxxx/4) do begin 

write <' I [ I ' ); xxxx;=xxxx+l 

testi=l! 

end; 

if test=l then VrltelnC I ' ); 

VrltelnC » ' ■ » » » — 



Directory o* FILES files 


' >; 










Same Ext Size Kane Ext Size Vane Ext 


Size 


Kane 


Ext 


Size 


1 1~ ' 
















c'udir CNword' >; {change this to any subdirectory required) 

end. Files Barry Cavle' 




Vanted: Multipac interface. John Poxon 07 208 7820 

For Sale: Color Computer 2, 64K. CCR 81 Tape 
recorder, all books including programs and graphics 
books. 2 Joysticks. Color Scripts It word processor, 
Dungeons of Daggorath on ROM. Taped programs from 
Rainbow A CoCo. 4400.00 

John Hockley 02 684 1184 



For Sale: 
compatible). One PC-2 

i nterface/printer/plotter. One 
pak. 10 software packages, 
artificial leather carry case. 



One PC-2 Packet Computer (Sharp PC-1500 

Dual cassette 

■IK aeaory expansion 

all originals. One 

Pens a- paper for the 



printer. All necessary manuals ft cables lnc "Getting 



Stortad". 



•300.00 
Brett Hooker 07 395 1794 



Some of you conputer derros have accumulated so 
■uch Junk In the past few years, you are becoming s 
•enac-e to society and a health hazard to your cat. 

This Is your chance to get rid of those unwanted 
bits of equipment. 

Place your ad here and I'll leave it on till your 
steam operated modem or whatever gets sold, or I get 
sick of the sight of your ad. 



Martha 



Vanted: A 3D program which 
object through 3 planes. Must be 
CoCo 64K Disk ECB. 

Colin Gawn 08? 52 9537 



rotates a defined 
ML or fast Basic far 



For Sale: COP 115 Graphic Plotter. Less than 60 
tiours work with manual, spare paper & pens & all 
hardware. £320.00 

1 Rory Doyle 03 758 2671 

For Sale: Tandy accoustic nodem with power supply, 
S50.O0. Tandy CGP 115 Color graphics plotter Just 
overhauled with pens, paper and manual, S150. 00. 
Genuine Tandy hard disk controller. Heeds OS-9 
Version 2, *200. OS-9 with version 2.00 upgrade, XS 
EDIT, TRS Copy & all manuals, 175.00 

Brian Coombes 03 551 7462 

Far Sale: Tandy Color Computer 2, 64K ECB, perfect 
condition, in original box. S299.00 

Hell Evans 03 564 7295 
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InterTRN News 

Quite a few changes here at 
Inter-Tan this month, especially 
with Ken leaving us to go to 
Goldsoft, so I'll keep my first 
input to this column brief. 

First of all r U 

congratulate Teresa, Ken's old 
secretary who has been promoted 
to supervisor of the Rebuy 
Section. 

Teresa hos a pretty busy life 
at present, and we really 
appreciate her help! Instead of 
Just one boss - she now has 
three! 

On the product front, several 
of our itonienant releases have 
been held up. 

The OS-9 Level 2 package that 
I know many of you have been 
waiting so patiently for, will 
be released at last this nonth. 

Importing anything into this 
country, can sometimes be a 
trial! 

The little DHP 105 printer Is 
finally avaLlable toa. 

Ve did think that it might 
become available in April, but 
It was held up In Quality 
Control for a little longer than 
expected. 

It is a great printer and I 
have the ui tiers from our 
customers to prove that they 
agree! 



Easy Access by Daca 



Easy Access Is a menu system 
for those who do not understand 
MS DOS, 

There ere a number of 
additional functions supported 
by Easy Access, These include 
automatic monitoring of hard 
disc usage, and a simple 
security system to keep 

operators away frou sensitive 
areas of the system. 

Easy Access uses pull down 
menus and has a fuil windowing 
presentation. 

Contact Daca, care of Vendy 
Archer, 03 590 4799- 



Here's What's Happening 



I hear that Graham is 
covering elsewhere the recent 
IBM releases, so I'll Just add 
this - the releases were 
completely as we predicted, and 
to a certain extent, our T1000 
SX already meets the Model 30 
hoad on - acpcaially Id the 
value/ performs nee stakes. 

No doubt you 1 11 see more from 
Tandy an this issue in the near 
future! 

I've taken phone calls from a 
number of customers recently 
asking about printers. 

For top quality printing in a 
business environment, I really 
have to point to the DKP '220O. 



I know this printer Is 
expensive, but when you consider 
what It can do far a business in 
terms of savings in tine and 
money - it saves you having to 
purchase a daisy wheel printer 
for letters for example - this 
printer Is vei y difficult to 
pass up. 

Veil, that's my first 

InterTan Hews - I 1 n sure I can 
get used to this one day! 

I'm looking forward to 
meeting with you all in August 
at ConX'67, so till then, or 
till next magazine, happy 

computing! 

Wilfred Eggert 



New IBM Models Released 

IBM has announced its PC/2 
range of micioconputers, 

consisting of the Models 80, 60, 
50 and 30, 

The tap nf the lino. Modcla 
80, 60 and 50 are heavy stufi 
Indeed - the SO runs at 16 or 20 
Mhz whilst the 60 A the 50 run 
at 10 Mhz! (This compares with 
the old Tandy 1000 which runs at 
4.77 Hhz or the CoCo 3 which 
runs at 2 Mhz. ) 

The IBM Model 30 will 
interest some hone users and 
many business users. 

It runs at 8Mhz, has 540K of 
RAM. three expansion slots and 
3.5 inch 720K drives. 

An optional 20 Kbyte hard 
drive is available and the 
system comes standard with AT 
quality graphics. 

A Model 30 with colour screen 

will oost about *600O depending 
on options. 

New IBM Operating System 

To compliment the new range 
of computers. IBM announced a 
new operating system called 
OS/2. 

This system will be capnhl* 
of handling memories higher than 
640K and of handling windows, 
but nothing else is known at 
this stage except that it will 
be quite some time before it is 
released! 

A nice way to tie up the 
software market place! 



Clone Suppliers React 

Ve asked one supplier what 
effect the release of the Kodel 
30 would have on hla, and he 
said that he felt that the low 
end wuuld not be effected at 

all. 

IBM are selling out their 
range of alder models at reduced 
prices, but in most cases* the 
reduced prices are higher than 
Tandy's standard prices, and 
certainly well above the current 
prices of clones. 

He predicted Nodel 30 clones 
in 3 - 6 months but he felt that 
the Model 30 wasn't anything 
that couldn't be created for 
less on existing clones. 



Desktop Publishing 

Desktop Publishing has been 
something that has developed 
from a small beginning on the 
Apple Macintosh. to a major 
enterprise on the many IBM 
systems around today. 

Being in the publishing 
business, we have fallowed with 
obvious Interest the development 
of the new systems. 

Currently, b*cauao we don't 

typeset, we are able to produce 
magazines at lower casts than 
other publications, but as more- 
new software hits the market, 
and as our needs change, we'll 
be continuing to keep an eye on 
what's happening with a view to 
becoming involved at some stage. 
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things 

would be 

justify a 

will tell 

PC and the 



Sumv ubbHi vat ions however! 

The first is that unless you 
ore printing 

continuously, It 

difficult to cost 
fully blown system. 

Next, whist they 
you that the IBK 
Tandy 1000 will operate the 
software, yau really need an AT 
or clone. 

The systems are very heavy 
users of the CPU, and you need 
something which is fast! 

Next, there are different 
software packages for different 
Jobs. 

The Ventura package, 

available from Xerox, appears to 
be more of an "in house" 
reporting system, than a fully 
blown page preparation system, 
such as we for example, might 
use. 

The Pagemafcer Software on the 
other hand is a publisher's 
tool, not really a tool for in 
bouse use. 

Finally, no master which woy 
one goes, you won't get much 
change from J25.00Q - so one 
needs to plan carefully! 

Touch Screen 

A touch screen is now 
available for IBM PC type 
computers with screens ranging 
in size from 9" to 15", 

With a response time of 7 as, 
most existing software can be 
adapted relatively easily. 

For more information, contact 
Konex, I Vlckhan St. , Brisbane. 
4000. 

Solid Modeling - 
Something 

for the Future! 

The Hewlett-Packard company 
has long been associated with 
inovat Ion. 

Often their products have 
pointed a direction for others 
to fallow and the latest release 
from then Is no exception. 

The HP Iffi Series 30 is a 
solid modeling design and 
drafting system which uses user 

created designs tD create a 3 

dimensional model quickly on 
screen. 

1 won't go into this package 
at great length, because It is a 
quite expensive system with a 
very extensive range of system 
commands, but it is suffice to 
say that the effect 1*5 stunning, 

and that I'm sure in tine we'll 

see emulations for at least the 
IBM range. If not for the 68000 
computers. 



QAGTC Discussion 
Evening 

Following on the recent 
article lu this magazine 

regarding gifted and taLlentect 
children, we have had a number 
of enquiries. 

Ar.yone interested may like to 
attend a meeting to be held on 
Tuesday 26th May from 4.30 - 
10pm, of the Queensland 

Association for Gifted and 
Tallented Children. 

The meeting will take place 
In the Gateway Inn. Anne St. , 
Brisbane. 

You will need to register by 
May 12th by phoning Marie 
Holllngwork on 07 379 6313 or 
Erika Pavlvk on 07 245 4931. 

Featured will be three mini 
presentations: 

* What is a tallented 

child? 

* How do we cater for them? 

* Possibilities for the 

future. 

There will be a Smorgasbord 
dinner, as well as further 
speakers later in the evening. 

In all, a most Involving 
evening if you can make it. 



Microsoft on the 

Warpath! 



The continuing fight against 
software pirates got hotter this 
month as Microsoft announced 
plans to clean up pirates of its 
MS DOS in Taiwan, the UK and 
Australia. 

In mid April, persons who 
have been importing and selling 
the Falcon range of copied 
Microsoft products were given 
one week to register with 
Microsoft in Australia, before 
l«gol proceedings were started. 

This get-tough attitude is 
very much In evidence in many 
areas of computing at present, 
and suppliers can not expect the 
same laxness shown in the past. 

This is especially so in the 
CoCo world, where the Falsoft 
organisation has shown a 

distinct willingness to pursue 
anyone copying their Rainbow on 
Tape / Disk products. 

Don't be caught with copies - 
it's really not worth it! 

There is no such thing as 
permission to place in a club 
library, items of software which 
are commercial in nature 



Writers Proofreader 

This is a powerful 

proofreading system which 

includes a standard G0000 word 
dictionary, a thesaurus, a 
homonym checker, word counting, 
professional dictionary and a 
two reading level analyser. 

The system needta a word 
processor, and any VP package 
which saves its files in ASC It 
can be used - eg Deskmate, 

Ve hope to have a copy of 
this product for review in the 
near future, so we'll report 
further then. 

Writer's Proofreader Is 

available from Thorn EMI 
Computer Software. 



The new Intelligent 
Onboard 

Modem from Tandy. 



We've been looking at this 
modem this month and hope to 
have a fuller report for yoj 
next month. 

However at $699.00 with Vteic 
2 softwore, this modem 

represents good value for money, 
and a is a very convenient way 
to keep your modem out of harm's 
way. 

The modem has auto answer, 
auto dial, auto disconnect. It 
supports 300 baud full duplex 
and 1200/75 for videotex, and Is 
available from you local Tandy 
store. 



Don't Underestimate 
Tandy! 

In 1986, Tandy in the US scld 
272,000 PC DOS machines, along 
with 276,000 proprietary 

machines (CoCo, Kodel 4's etc), 
and 120,000 pocket portables. 

This total of 668,000 

machines makes Tandy No. 1 
supplier in a dead heat with 
Apple Computer Inc on a ur.it 
basis. (IBK is still Ho. 1 in S 
value of shipments. ) 

Furthermore, Tandy having 
sold 272. 000 PC-DOS clones, 
ranks as Ho. 1 clone 

manufacturer through retail 

channels in the US, ahead of all 
others! 
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WHAT'S ON THE BEST OF CoCoOz 



Best of CoCnOz fl. EDUCAltOB 



ROADQU 12... 
SHARE MARKET 

HflKGHAS 

AUSTQU I Z . . . 
ALPHABET . . . 
SFELLIEG TUTOR 
TANK ADDITIOR 
FFACTION TUTOR 
TAPLES . 
I COS A . . 
K1DSTUFF 
TAXMAN . 
FLAGQUIZ 



ROB VEBB 
ALEPH DELTA 
ALEPH DELTA 
P. THOMAS 
• RQH VEBB 
I AH LOBLEY 
DEAN HODGESOR 
ROBBIE DALZELL 
BAR* IE GERRAND 
.. BOB WALTERS 
. JOHABRA VAGG 
. TONY PARFITT 
FOB VEBB 



Best of CoCoOz 02 port 1 16K GAMES 

PVTHOK B. ARMSTRONG 

CCCONIND STEVE COLEMAN 

PCKERHCH GRAHAM A MATTHEWS 

OILSLICK JEREMY GAMS 

SPEEDKATHS DEAR HODGESOR 

CCMETBOR BOB THOMSON 

BATTACK JEREMY GAMS 

SKI IRG tOSHUA GAMS 

PROBDICE BOB DELBOURGO 

RALLY TORY PARFITT 

CHECKERS j A j CANS 

FOURDFAW JOHAMFA VAGG 



Be&t of CoCoOz 92 part 2 32K GAMES 

TREASURE DAVIBSOB 4 GARS 

SKOOTIBC GALLERY TOM DYKEMA 

MASTERMIRD GRAHAM JORDAN 

CARDER QF EDEN DAVE BLUHDORR 

ANESTHESIA URE MARTYR 

YAKIZEE IEVIR GOWAR 

OREGON TRAIL DEAR HODGSON 

BATTLESHIP CHRIS SIMPSON 

ADVERTURE * STUART RAYRER 

ANDROHEDIA MAXBETTRIDCE 

LARDATTACK ALDO DEBERNAD1S 



Best of CoCoOj *3 UTILITIES 



B*st of CoCoOi #« Business 

Hl ALBX. HARTKANI 

(diakt Disk Directory ffanager) 
PEPSMAM PAUL HUMPHREYS 

(Personal Finance Management) 

8AHKSTAT BARRY HATTAM 

(Annual s Stora State rant) 

CC3 GRAHAM HORPHETT 

(tope; Sales Invoicing) 

lMSURS POY VAND3RSTBBM 

'Ai i !','->.' Korw Contents) 

CQCQPILB BRIAR DOUOAN 

(tape; database) 

°PMS PAUL HUHPREYS 

*di»k ; Dioh: rrograni Management Sya) 
DATABASE PAUL HUMPREYS 

(top*i THB tape database) 

RESTACC DURO LY 

'tape; Restaurant Account*) 

SPDSHEET GRAHAM HORPHBTT 

(disk; 22 coluian spreadsheet) 

PRSPDSHT GRAHAR MORPHBTT 

<dtek; prints out "SPDSHEEfv 

ACS3 GPBQ WILSON 

(disk; Nulti disk database) 



Beet cf CoCoOl #5 ADVBRTURBS 

ADV 32K s. RAYNER 

0UEST TORY PARFITT 

LABYRINTH JJHES IBDMORD 

* D7 * SBAN LOWB 

CPTST * U C a K SPRIRGETT 

FRiSOR TIN ALTOR 

OP *LTOH - IAM CLARKE 

WIZARD DARRELL BERRY 

TREASURE c. DAVIDSON 

L0ST ALEX. HARTMARR 

Be«t of CoCoOl *0 PRBSCHOOL 

ALPHABET STUART DAWSON 

HATDANCB JOHAWfcA VAGO 

AUSTSOHG KcDEPMOTT FAMILY 

ADVANCE KeDBRMOTT FAMILY 

WALTZING KcDERMOTT FAMILY 

TIMfcKANG HcDERAOTT FAMILY 

BARD McDBBMOTT FAMILY 

KIDSTUFP JOHAMPA VAGO 

MATCHER ? 

LETTERS JACK F1HRBN 

BABYSIT JOHABRA VAGG 

SPELLING JOHAMFA VAGG 

SPBEDTAB DEAN HODGSON 

10 FACES JOHAMIA VAGO 



Best of CoCoOz 07 GRAPHICS 

LIL'CCCO ANDREW VHITB 

THE ROOM HERMANS FRBDRIKSOH 

BACK STREET JOY WALLACE 

LOCO MIKE D'BSTEERB 

COCO ART SAMDY McCRECOR 

KAHCA JOHflMRA VAGG 

THE BOAT SARDY McGRECOR 

SAD COCO p. BOLLB 

TOWER c. A. BINS 

VIMDY DAY SARAH LAW 

SAILING STEVB YOUNGBEFRY 

OUTHOUSE STBV8 YOUNGBBRRY 

SHURF JOHABRA VAGG 

SUWSTATE BTBVE YOUNGBERRY 

HELICOPTER ANDREW WHITE 

MARTHA ANDREW WHITB 

BAD MOON STHVB YOUNGBERRY 

MCC JO* WALLACE 

EAGLE 7 

BLASTER PAUL YOULD 

FOGHORM PAUL STBVBBSON 

Best of CoCoOz #8 l*K GARBS 

ALIEN RTtlART SABDRB8 

QWERL DARRBLL BBBRY 

SHOOTOUT CRA IG STEWART 

SHUTTLE CRAIG STEWART 

FROG DARREI OTieRT 

FPOGRACB TOK LBHAHB 

K I «HAT TOM LBHANB 

GRANDFR I , , . ■ DOUG OBEX 

WATER VANS JUSTIK LIPTOR 

CATBRPLLLER JUSTIB LIPTOR 

DETECTI VB VAL STBPKEMSOR 

BREAKOUT WHY/BILT 



Beet of CoCoOz *9 32K GAMES 

TREOMIBO BOB DBLBOURGO 

MATCHER CHARLES BARTLBTT 

GO BOB DELBOURGO 

RARZOD MAX BBTTRIDQB 

CHOMPER MAX BBTTRIBC8 

POPBALL MAX BBTTRIDGB 

LUDO VHY/B1LT 

SABRE ANDREW SIMPSON 

MOVBABOUT KEVIN QOVAi 

J IGSAW JAHE3 REDMOMD 

LABYRIBIH JAMBS RBDMCND 

TAMK CRA 10 STEWART 



SCREEN PRINT TOM DYKEMA 

RANTEST TOM DYKEMA 

PRI RT SORT PAUL HUNPRTES 

BEAUTY BOB THOMPSON 

DATAGEN BOBIR BROWN 

PCOPV BRIAM DOUGAR 

FASTEXT 0Z-VI2 

MOMITOR + BR IAN FERGUSON 

COPYDIR THONAS SZULCHA 

LABELLER FRED BISSELIBG 

SPEED CONTROL PAUL HUJCPms 

2BC WARREN WARNE 

CREAT-A-TITLE BRIAR FERGITSOI 

D1SKFILE BRIAM DOUGAR 

BIO REMARKS ...-,..-... BOB THORSON 

LABELLER GORDON BERTZER 

D1R N.OERIB SINGER 

HI ALEX.HARrMARR 



Please Rote : Soro? of the 
program on Best of Cocooz f 3 
and 0\ will not work on the 
Coco 3, 



B*»t of CoCoOz #10 education I! 

MEI E0R DEAN H0DQS3N 

DRIVERS TEST ANDRBW SIMPSON 

SAL B JUSTrM LIPTON 

J/ BLES PAT KBRMODB 

O p ALTON ,a- CLARKE 

CAPITAL LBTTBRS BOB HORNB 

TEST MATCH J H PF SICBBN 

SEKTHMCE BUDINOS BOB HORNB 

ESCAPE DBAN HODOSOM 

FAILMATH BOB HORNB 

COUNTDOWN DEAN HODGSON 

WHATZIT BOB HORUB 

HOMOPHONES BOB HORIB 

COMPOUND VORDS BOB HORNS 



Boo-t of GoCoOe *1J BUucatlon III 
This U a DISK only leaual I 

CHATWIH MAFOR BOB HORSB 



TAPE $16 each 



DISK $16 each 



62 softgold 



GOLDSOFT 



P.O. BOX 1742, SOUTHPORT. QLD. 4215 Phone (075) 510 015 



Goldsoft Fries list as at March, 1907 



Please tick (v"J your rpituirements. 



HARDWARE 

CoCoConnectlon: $206.00 < ) 

Video Amp: Vitk Sound - $35.00 C > 
Without Sound - $25.00 ( ) 
The Probe: $49.95 ( ) 

GOLDLIHK 

Access Goldllnk *642# on Viatel with a 3200/75 
baud modem. Annual subscription: $39.75 < > 



SOFTWARE 

Magazines, Tapes & Disks 

Australian CoCo (Advanced Programs far your CoCo) 

Magazines: Tape ( ) or Disk ( ) 

12 Months $39.95 ( ) 12 Months $123.75 ( > 

6 Months $24.95 ( ) 6 Months $ 74.25 < > 

1 Month $ 4.50 ( ) 1 Month $ 10.50 < > 



Softgold (Programs for your CoCo>: 

Magazines Tape < > or Disk < ) 

12 Months $39.95 ( > 12 Months $123.75 < ) 

6 Months $24.95 ( ) 6 Months $ 74.25 < ) 

1 Month $ 4.50 ( > 1 Month $ 16.50 ( ) 

Gold Disk - Available Quarterly: 
1 Month: $16.00 < ) 

MicoOz Tape CKC-10 Programs for your Mice): 

12 Months $75.00 < ) 

6 Months $42.00 < ) 

1 Month $10.00 ( ) 

The CoCo3 Tape/Disk: 
# 1 - Tape: $10.00 Disk: $16.00 < > 
« 2 - Tape; 110.00 Disk: $16.00 ( ) 

"Say the Wordz"! 

Two Curriculum baaed speller programs for 
your Tandy Speech/Sound Pack: $29.95 
R«q. 32K + Tandy Speech Pack < ) 



BRIC-A-BRAC 

Blank Tapes: 12 9 $18,00 < ) 

(C-30) 1 fl $ 2.00 < ) 

Tape Casee: 12 G $ 5.00 < > 

Bisks DSDD: 10 © $20.00 < > 

1 « % 2.50 ( ) 

BOOKS 

Help (for your CoCo): S9.95 < ) 
Mico Halp (for your MC-10): $9.95 < ) 



BACK ISSUES 

Australian CoCo: Sep 84 - Dec 65 

Australian CoCo; Jan 86 - Feb 87 

Australian Mtco: Aug 84 - Dec 85 



ADDITIONAL REQU IREME8TS 



$2.00 < ) 
$3.75 ( ) 
$2.00 ( > 



Best of CoCoOz - $16.00 




A selection of programs 


from Australian 


CoCo Magazine. 




Tape: 


Disk: 


# 1 - Education: < > 


( ) 


# 2 - Games 16K: < ) 


( ) 


# 2 - Games 32K: ( ) 


( ) 


# 3 - Utilities: ( > 


( ) 


# 4 - Business : ( ) 


( ) 


# 5 - Adventure: ( ) 


( ) 


1 6 - Preschool; < ) 


( > 


# 7 - Graphics : < > 


( ) 


1 8 - Games 16K; ( ) 


( > 


f 9 - Games 32K: ( ) 


( ) 


#10 - Education: ( ) 


( ) 


#11 - Education: 


( > 


Special offer: Buy any 2 


"Best of" and 


pay only $28,001 





Rew Subscription: < ) Renewal: ( > 

Sub No: 

Harae: 

Address i 



P/Code. 



Phone; < . . ., > 



Please find enclosed: 
a- Cbequa ' > 

b. Money Order ( ) 

c. Credit Card < ) 

Credit Card Type a Huober: 

Bankcard < ) : - 

Visa < ): - 

Mastercard ( ): - 

Expiry Date: /. . . 

Authorised Amount: * 

Signed: 



9'9? 
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ACTj 




CfllBERFA PTH 


JOHN BUKCER 062 58 3924 


CANBERRA STH 


IBS THURKJM 062 68 9226 


BSVi 




S1DIEY: 




SANKSTOVB 


PAT DORSETT 02 646 3619 


BIACKIUVN 


KEITH GALLAGtER 02-627-4027 


CARfclHGFORl) 


POSKO MCRAY 02 624 3353 


GHAlSVOOD 


BILL O'DONHELL 02 419 6081 


CULYTf'H HtfcMAM FPEDPlKStOB 02 623 6379 


FAIRFIELD 


ARM PITTARD 02 72 2661 


CLADESVILLE 


MARK ROIHVbLL 02 617 462V 


KILLS DIST 


ARTHUR SLADE 02 622 8940 


HQRNSBY 


ATHALIB SMART 02 646 6630 


1BGLEBUFN 


STEPHEN RIDGEWY 02 605 7382 


KEfiTHttRsr 


TOM STUART 02 654 2176 


LEICHHARDT 


STEVEN CHICOS 02 56 6207 


or 


GORGE ECHECARAY 02 560 9664 


LIVERPOOL 


UOIIE DUCCAR 02-607-3791 




NACOUARIb Fl 

NINIU 

SUTHERLAND 
STfDNKY BAST 

ALWJRY 

AKH1UAI.H 

BLAXLARU 

BkJKfcN HILL 

CARDER 

COFfS HARBOUR 

COJHA 

CUJRAMIU>NG 

C0J7ANUBDRA 

DENIL10U1H 

DUBBI) 

MACBbS 

GOSFQRD 

C RAMON 

G»YRA 

JUBEE 

KERJPSCT 

LESION 

LtSBQRE 

LIIHGOV 

MAllLARD 

IhJREE 

mudgbe 
ranbikxa hds 

MARRORtNE 

BbWCASTLH 

NUVKA 

PASKES 

PDin MAC4JUARIB 

SPSIHGVUGD 



ELDS 

BARRY HARNTOH 

GRAHAM FOLLCCK 

IAS ANNABEL 

JAi-Kl UJCKIJUj 

ROR DUNCAR 

DOUG BAPEfcR 

BBUCE SULLIVAN 

TERRY NQOSAtf 

KEVIN VII1BRS 

DOB XHHY 

ROSS PRATT 

GEORGE SAVAGE 

CHERYL VILLIS 

VAYNE PATTEKSON 

GRAEME CLARKE 

JOHAHBA VAOG 

I'ETER SEIFERT 

PETER LINDSAY 

MICHAEL J. IIARTNANN 

PAUL MALOBEY 

RICK FULLER 

BRETT VALLACE 

ROB H1LLAPD 

DAVID BEHGER 

BILL SHOW 

ALF BATE 

BRIAR SIUBE 

VEKDY PETER30B 

GRAEME CLARKE 

LYR DAWSON 

ROY LOPEZ 

DAVID SHALL 

RUR LALJR 

DAVID SEAKQSS 



02 618 
02 603 
02 52-B 
02 34 4 
060 43 
067 72 
047 39 
060 69 
046.66 
066 51 

064 52 
049 77 
069 42 
058 81 
066 89 
066 52 

043 32 

066 42 

067 79 
069 24 
065-62- 
069-53- 
0C6 24 
063 52 
049 66 

067 52 
063-72- 

065 66 

068 99 
049 49 

044 46 

066 62 
065 63 
047 51 



1909 
5028 
3391 
9111 
1031 
7647 
3903 
2382 
806a 
2205 
3065 
1054 
2264 
3014 
6549 
2940 
7874 
2503 
7547 
1860 
7222 
2081 
3069 
2282 
2557 
2465 
1958 
6723 
6549 
8144 
7031 
2662 
6223 
2107 



TEACHERS' IBTEREST GROUP 
BRISBAIE BOB HOfilE 07 281 8151 

BOS I MESS: 
BRIZBIZ BRIAR BERE-HTKHETH 07 349 4696 

0S9 GROUPS: 
RAILORAL 0S9 USERS' GROW 

GRAEME BICKOLS 02 451 2954 
BSV 
SYDNEY 
EANKSTOVN 
CARL1HGF0RD 
GLADESVILLK 
SYDNEY EAST 
CCOMA 
QLC 

rF I.SBARE 



carl mm 

ROSKO HOAY 

MARK ROTHVELL 

JACKY COCKIFQS 

FRED B1SSEL1NG 



02 646 3619 
02 624 3353 
02 817 4627 
02.344.9111 
064 52 3263 



SA! 

ADELAIDE JOHB HAIBES 

HO-RTH 5TBVBB ElSENBfiRG 

MORPHETTVALE KEB RICHARDS 

PORT BOARLUHGA ROB DALZELL 

SEACOMBB H7S GLEBN DAVIS 

PORT L1BC0L1 BILL BOARDMAB 

PORT P1RIB VIC KBAOGRHASB 

VHYALLA MALCOLM PATRICK 

TAS: 
DB VON PORT 
BOB ART 
KIRGSTOB 
LAUBCESTON 
SMITHTOH 
VYSYARD 



09 


278 


3560 


08 250 6214 


06 


J8« 


1503 


08 


386 


L647 


1)3 


296 


-477 


061 


62 


2385 


064 


32 


1230 


0*H 


46 


•637 



JEPF BEST 004 24 6759 

DOB DELBOURGO 002 23 3896 

VIM PB PU1T 002 29 4950 

BILL BOVER 003 44 1584 

HARRY CHRISAPIS 004-52-1590 

ANDREW VTLL1B 004 35 1639 



TAHMOOR 
UPPER HUNTER 
URALLA 
WA'JGA VAG3A 
WT01C 

DARVIB 

$LD: 

BRISBANE: 
B IKK DALE 
1 CLAYFIELD 

COLL'VOOD PK 

IPSWICH 

PIBE RIVERS 

SOUTH VEST 

SABDGATE 

SCARBOROUGH 

V00DR1ECE 

AIRL1E BEACH 

BIGGEBDEN 

BOVEM 

BUBDABERG 

CAIRNS 

DALBT 

•UADSTUNB 

GOLD COAST 

GYMPIE 

HERVEY BAY 

HACK A V 

MARYBOROUGH 

PIT ISA 

HURGOB 

BOCKHAHPIOB 

TARA 

TUOVODMBA 

10VNSVILLE 



GARY SYLVESTER 046 61 0318 

TERRY GRAV0L1M 065 45 1698 

FRABK RUDFORD 067 ?8 4391 

CES JE8KIMSON 069 25 2263 

JOHB VALLACE 043 90 0312 



BSEBT0I PRIOR 069.81.7766 



COLIB BORTH 07 624 2128 

JACK FRICKER 07 562 6869 

ABpRBV SIMPSON 07 288 5206 

HICK MURPHY 07 271 1777 

BARRY CLARKE 07 204 2806 

BOB DEVRIES 07 372 7816 

MARK MIGHBLL 07 269 3846 

PETER MAY 07 203 6723 

ALLAN ALLSOP 07 349 1831 

GLEB EVANS 079 46 1264 

ALAR MESHAM 071 27 1272 

TERRY COTTOB C/0 077 86 2220 

BOB S1KPKII 071 71 5301 

JEFF LARSEB 070 54 7127 

MERRICK 7ABSKT 074.62.3228 

CAROL CATHCART 079 76 3594 

GRAHAM MORPHBTT 075 51 0577 

BERT LLOYD 071 8219100 

LESLEY HORVOOD 071 22 4989 

LPS MAt.fiNPY A?<l*;it3a3*7A2 

JOHN EFFER 071 21 6636 

JACK RAE 07? 43 3486 

PETER ANGEL 071 66 1628 

KEIEAB SIHPSQB 079 28 6162 

DEBBIE DORFIBLD 074 65 3177 

LEN GERSEK0V5K1 076 35 9264 

JOHN O'CALLAGHAB 077 73 2064 




JACK FR1CHER 07 262 8869 



VtC 

LATROEE VLY 
VA 

KALGCORLIE 

MC-10 COKTACTS: 
LI SNORE 
SYPREV 
VARRHAKH001, 

TANDY 10C0 / MS 
BSV: 
GLADFSVILLB 
SYDNEY VEST 
VYOBG 
QLD* 
BRISBANE 
BORTH 
SOUTK 
GOLD COAST 
SA 
FORT LINCOLI 
VIC: 
HELBOLRNE 

FORTH. 
SYDBEY 

ROBOTICS: 
GOLD COAST 
SYDBEY 
VAGGA VAGGA 



GEORGE FRABCIS 051 34 5175 
TERRY BURfETT 050.21.5212 



BOB HILLARD 066 24 3089 

GRAHAM POLLOCK 02 603 502ft 

GARY FURR 055 62 7440 



DOS; 



VIC: 
MELBOUPRE: 

MELBOURNE CCC 

DABDEBOBG 

COBCASTEP 

FRANKSTON 

NAEKE VAfREH 

NTH EASTERI 

MELTON 

RIBGVOOD 

SUBBURV 

SUBSHIHE 

UPR F'TPEE GLY 
BA1RKSDALE 
BALLARAT 
CHURCHILL 
DAYLESFORD 
GEFLOBG 
MAFFRA 
IDS 

MDRBINGTOB 
HORVELL 
SALE 

SHEPPAPIOB 
SMYTHESDALB 
StfAH HILL 
TONGALA 
TRARALGOH 
VQHTHAGG1 
YARRAVONGA 
VA: 
PERTH 
GIRRAVHEEH 
KALGOOFLIB 



JOY VALLACE 

DAVID HDRROCKS 

lUStlll LIPIOB 

BOB HAYTER 

LEIGH KAMRS 

PETER VOOD 

MARIO GERADA 

IVOR DAVIES 

JACK SUIT 

IAB BUTTR1SS 

RQRY DOYLE 

COLIN LEHKANB 

MARK BE7ELABDER 

GEOFF SPOVART 

DANBY HEDJI 

DAVID COLLEB 

MAY HIOFPPV 

JOSEPH HESTER 

KICHAEL ROHCK 

GEORGE FRANCIS 

BRYAB KcHUGH 

ROSS FARRAR 

TONY PAHERSOB 

:'/■: :-:■ GERRABD 

TOBY HILL IS 

LEIGH DAVES 

LOIS O'HEARA 

KEN SPOBG 

IAIN MACLEOD 

HANK VtLLEHSER 

TERRY BURNETT 



03 27? 
03 707 
03 857 
03.783. 
0.1 704 
03 435 
03 743 
03 758 
03.744. 
03 314 
03 758 
051 57 

053 33 

051 22 

054 24 

052 43 
061 45 
051 27 
03 769 
051 34 
051 44 
0-58 25 

053 42 
OSO. 32. 
058 59 
0*51 74 

056 72 

057 44 



5182 

5870 
5149 

me 

5680 
2016 
1323 
1496 
1355 
3240 
2671 
1545 
4733 
1369 
3329 
2123 
I31S 
7817 
7997 
5175 
1792 
1007 
8815 
2838 
2251 
5552 
1593 
I486 



09 448 ?136 
09 342 7639 

090.21,5212 



CANA1>A - CoCo. 
Ontario Rlcliard Hobsoo 416 293 2346 

Toronto From Llchtenberg 416 845 2889 



300 BAUD BULLETIN BOARDS 
SYDBEY 

I1F0CEITRH 02 344 9611 

TANDY ACCESS 02 625 8071 

THE COCOCOBIECTIOl Q2 6L9 3591 

HUB 002 49 4405 



YtDEOTSY SrSTEMS 



VIATEL 
HOUSETEX 
VTX 4000 



51955 
059 42 5528 
03 741 3295 



MARR RQTBWEtL 0? 6W 4627 
ROGER RUTHEH 0*7.39.3903 
JOHB VALLACE 043 90 0312 



BR IAB DOUGAB 07 3 2072 

BARRY CAVLEY 07 390 7946 

GRAHAM HOHPHETT 075 51 0577] 

BILL BOARDMAB 066 82 2385 

TOBY LLOYD 03 862 4664 

JOHB REDBOBD 02 85 3751 



GRAHAM MORPHETT 075 51 0577 

GEOFF FIALA 02 84 3172 

CES JEBKIBSOB 069 25 2263 



CHRISTIAI USERS' GROUP: 

COLLIE RAYMQBP L. ISAAC 097 34 1578 



TABI1T INFO OB VIATEL 

GOLDLIBK VIAT8L *■•&:» 
BLAXLAKD COMPUTER SERVICES VIATEL ".-:.::>* 

PARIS RADIO VIATEL *64258# 

POVER CODE VIATEL *64255# 

TANDY VIATEL *64261# 

SOHE TtWDY USERS OB VIATEL 

ALLAB BEALE 726353300 

FRED BL6SEL1B0 646232630 

JACK FRICKER 7262S8590 

JOHB GRIG5BY 945872330 

STUART BALL 939765790 

BOB KENNY 665122D50 

JEFF LARSEB 705471270 

1A1R HACLHOD 944621360 

CHRIS BAGLE 689533360 

RICHARD PANKHURST 280717370 

ROSS PRATT 648230550 

RICCAY SCHMAHL 298151500 

ARTHUR SLADB 262289400 

DARCY 0' TOOLE 755105770 

ROB VRJGHT 352924510 
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DIRectory 



Insertions In this Directory cost $160.00 
for six months or $300.00 for twelve months 
per frame. Changes to Insertions Incur a 
further charge. 

If you sell Soft or Hardware for Tandy 
computers, you need to be listed In this quick 
reference guide. 

Remember! Tandy owners READ this 
magazine! 



N.S.W. 

Central Coast 

Computer Wizardry 
P.O. Box 979, 
Gosford N.S.W. 2250 

* Educ stlonal Software 

• Communicating Software: 

Hardmtaro 

* Agents for Computer Hut 

* Agants for Speech 

Systems 

* Prompt Court#©tii 

Sanrica 

* Pfiorte or Writ* tor 

Catalogue 
Binkevd I Viia C*'d Wslcoroo 

043-24-7293 



N.S.W. Llsmorei 

Decro Electronic Senrlca* 
12 Carrlngton St., 
Lismore, N.S.W. 2480 
(Tandy Dealer 9225) 



Best range of Computers 
and Computing Equipment 

in Summerland. 

Whether you live on (he 

North Coast, or are just on 

holidays, you can't afford 
not to call and see us! 



066-32 1896 



■Victoria 

Blackburn 

DAL Wilton A Co Ply. Ltd 
6 Stafford St., 
Blackburn, Vic. 3130 



Serving Melbourne's East 

Software — Hundred* of 

tflflea 

Hardware — Driver. 

Piinten 
Service — Upgrades 



03-898-4521 



I.S.W. Gunnedah 

Either" » Sporlt V 

Electronic* 

166 Conadllly St.. 

Gunnedah N.S.W. 2380 

(Tandy Dealer 9223) 

Agricultural 
|ComputIng Specialists 

For Friendly Service to 
the man on the land, or 
I (or fast accurate help to 
the town dwellers 



067-42-2230 



South Australian 
Morphettvale 

NATIONAL 

ler77ME ADVERTISED 

THE PROFIT POTENTIAL 

IN YOUR 

PERSONAL COMPUTFJ* 

$25,000 PER MONTH 

IS POSSIBLE 

For FREE Brochure: 

Ph (08) 3827281 

or send S5AE to 

Mai, P, Bailey, 

6 Bower Crt, 

(D«pt.7) Morphettvali 

South Australia S162 



Tasmaniai 
Hobart 

The Dalbourgoa 
15 Wlllowdene Ave. 
Sandy Bay 
Hobart. Tas. 7005 



* Expanded Basic — a 
barter Basic tor four CoCo 

* The Proportions — a 
utility to prorlda aqual 

gaps oaf IMNM proportional 

/afters on Tandy's DMP2QQ 

prinft 

* Maf/iernafica/ function 

tfaUteM 



002-25-3896 



^GAMES 

BESTOFCoCoOZ#8 



16K Games 



ALIEN 

QWERL 

SHOOTOUT 

SHUTTLE 

FROG 

FROG RACE 



KIMMAT 

GRANDPRI 

WATEHWAR 

CATERPIL 

DETECT 

BREAKOUT 



BESTOFCoCoOZ#9 

32K Games 



TRIOMINO 


LUDO 


MATCHEM 


SABRE 


GO 


MOVEABOUT 


NARZOD 


LABYRINT 


CHOMPER 


JIGSAW 


POPBALL 


TANK 


PRICE 


Tape $10.00 




Disk S 16.00 


GOLDSOFT. 


P.O. BOX 1742, 


SOUTHPORT, 4215. 




■Queen sla nd BBBBBBBaal 
Brisbane 

Quean aland Coeour 
Software Suppllaa) 
P.O. Box 306 

Clayfiei-a Old 4011 

.': 64 k A 128K upgradms 
ft 00 column cart? 
■& yciw« 
ft Oamma 

£- Tarminal program* 

07 - 262 • 8869 

A/H 



CANADA) 



Computer Ateambly 

Manual* 

BIG BLUE SEED for 
IBhSlm BUILDERS 

" parts list 
" placement diagrams 

" instructions 

lor assembling over 75 

bare IBM-compat. card* 

Now includes guides lor 

640K. Turbo & AT MthBoV 

517,95 US 

Money Order. VISA/MC 

NuScope Associates. 1C 

P.O Bo» 742. Stn B 

Willowdale. Ontario 



2 Z* 3 s - 

c w =_ -^ r- 3. >fl 
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/ 
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E cs n co =r v 



GDLDLinh 

com. 

STflTiDn 

BQe 

on 





IATEL 

AUSTOALIA'S WONM. VlQEOTE* SERVICE 



BULLETIN BOARDS 
TANDY COMPUTERS 
ATARI COMPUTERS 
COMMODORE COMPUTERS 
FAST FLORIST 
REVIEWS 

HARDWARE & SOFTWARE 
SHOP 



YES WE EVEN TALK BACK !! 



